Написать в программе Паскаль: Дано целое число. Если оно положительное и трехзначное, найти сумму первой и третьей цифры этого числа, в противном случае сообщить, что число нам не подходит.

program zz1;

var a, b, c, d:integer; / / задаем переменные целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (a);

if (a > 0) and (a > 99) and (a < 1000) then / / проверяем условие, если число положительное и трехзначное

begin

b:=a mod 10; / / находим третью цифру числа

c:=a div 100; / / находим первую цифру числа

d:=b + c; / / находим сумму цифр

write (' сумма первой и третьей цифры числа = ', d); / / выводим один ответ

end

else

writeln (' число нам не подходит '); / / выводим другой ответ

end.