Question

Напишите программу для сложения двух однозначных чисел. Паскаль. + блок-схему составить
отдаю все баллы если решите

Answer 1

program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.