Паскаль ругается, а я не знаю в чем проблема... Помогите найти ошибку. program pr1; var...

0 голосов
31 просмотров

Паскаль ругается, а я не знаю в чем проблема... Помогите найти ошибку.
program pr1;
var a, b, d: integer;
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1
readln(b);
end
writeln(d);
end.


Информатика (2.8k баллов) | 31 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Программа с исправленными СИНТАКСИЧЕСКИМИ ошибками:
program pr1;
var a, b, d: integer;
begin
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1;
readln(b);
end;
writeln(d); 
end.

(194k баллов)
0

зяпятые не забывай