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

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-логическое "или"