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

Program zadanie;
Var a,b,c:integer;
Begin 
Writeln('Введите число'); 
Readln(a); 
If (a div 100>0) or (a div 100<0) and (a>0) 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-логическое "или"