Напишите алгоритм сложения двух двухзначных целых чисел,учитывая,что исполнитель может складываться только однозначные числа.

Program sum1;
var a,b,s,i:real;
begin
Writeln('A = ');
Readln(a);
Writeln('B = ');
Readln(b);
s:=a+b;
Writeln('A+B = 's);
end.