Program summa;

var a, b, sum: integer;

begin

writeln('Введите два целых числа');

readln(a, b);

sum := a + b;

writeln('Сумма равна', sum);

end.

Программа вводит два целых числа, находит их сумму и выводит результат на экран.

В записи нужно отделить слово begin от следующей команды. Исправленный вариант:

Program summa;
var a, b, sum: integer;
begin
writeln('Введите два целых числа');
readln(a, b);
sum := a + b;
writeln('Сумма равна ', sum);
end.

0 0 Пожаловаться