TestSuite/CompilationSamples/Try4.pas - master - n-dimens/pascalabcnet

TestSuite/CompilationSamples/Try4.pas

11 строк285 B

Artem Pelenitsyn

change encoding for all *.pas and *.cs files: cp1251 -> utf-8

28 дек 2015, 14:25

28 дек 2015, 14:2549378a6

// Исключения. Генерация исключения
function f(x: integer): integer;
begin
  if x=0 then
    raise new System.Exception('Аргумент функции f не может быть равен 0');
  Result := 10 mod x;
end;

begin
  writeln(f(0));    
end.