Вопрос Ошибка на pascal abc

[Nikson]

Вот мой код: Program Informatica;

function ioresult: shortint;

var i: shortint;

begin

readln(i);

if ioresult(i) = 0 then

begin

writeln('Da');

end;

if ioresult(i) 0 then

begin

writeln('No');

end;

end. Почему-то программа пишет ошибку: Строка 14 - ожидалось ";", а встречено "."

 

[Calipso]

ну так точку в самом последнем end убери

 

[лого]

потому что после end точка должна стоять а не ; выше посмотри где 2 энда

 

[sdbx]

потому что определение функции заканчивается end; определение программы заканчивается end. должно так: Program Informatica;

function ioresult: shortint;
var i: shortint;
begin
readln(i);
if ioresult(i) = 0 then
begin
writeln('Da');
end;
if ioresult(i) 0 then
begin
writeln('No');
end;
end;

begin // точка входа в программу
// здесь код, вызывающий функцию ioresult
end. // конец программы
до кучи - функция объявлена без параметра function ioresult: shortint; а вызывается с параметром ioresult(i) это тоже ошибка.

 

[semik0078]

{$APPTYPE CONSOLE}

Program Informatica;
var
i: shortint;

begin
readln(i);
if i = 0 then
begin
writeln('Da'
end;
if i <> 0 then
begin
writeln('No'
end;
end.

 

[Олег Соколенко]

Еще один end нужен