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

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