Question

Дан трехзначное число n и целое число k. Напишите программу подсчитывающую сумму

Answer 1

var n,k,a:integer;

begin

writeln('Введите трёхзначное число');

readln(n,k);

a:=n+k;

writeln('a=',a);

readln;

end.