Написать в программе Паскаль:

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

Program zadanie;

Var a, b, c:integer;

Begin

Writeln ('Введите число') ;

Readln (a) ;

If (a div 100>0) or (a div 1000) or (a=0) Then

begin

b:=a div 100;

c: = (a mod 100) mod 10;

a:=b+c; Writeln ('Сумма=', a) ;

end

Else Writeln ('Число нам не подходит') ;

End.

and-логическое "и"

or-логическое "или"