program reshiprimer;
uses crt-
var
a, b, c: integer;
d: string-
Тут a і b - доданки, c - сума, d - відповідь на питання про те, чи бажає користувач грати далі.
begin
randomize;
while 0 = 0 do
begin
a: = round (random (1000));
b: = round (random (1000)) -
writeln ('Скільки буде'), a, ('+'), b, ('?');
readln (c) -
if a + b = c then writeln ('Правильно!') else writeln ('Неправильно!) -
writeln ('Будемо грати далі?');
readln (d) -
if upcase (d) 'Y' then halt (0) -
end
end.
Зверніть увагу на точку після другого оператора end.