Question

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

Answer 1

program Sum;
var   
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.