program sums;
var
a,d,s : real;
begin
writeln('Введите 2 числа: ');
readln(a,d);
s := a + d;
writeln('Сумма этих чисел равна: ', s);
end.
program sums;
var
a,d,s : real;
begin
writeln('Введите 2 числа: ');
readln(a,d);
s := a + d;
writeln('Сумма этих чисел равна: ', s);
end.