Это первый вариант (но им лучше не пользуйся , ибо препод может придраться )
var
a,b:integer;
c:boolean;
begin
readln (a);
b:=0;
begin
if (a div 10>0) then b:=b+1;
if (a mod 5=0) then b:=b+1;
end;
c:=b=2;
writeln (c);
end.
Вот второй вариант ( который не так сильна закручен )
var
a:integer;
c:boolean;
begin
readln (a);
c:= (a div 10>0) and (a mod 5=0);
writeln (c);
end.
Объясняю второй вар:
var - мы вводим переменные
a:integer; - это значит что число а- целое
c: boolean; - вводим переменную которая дает истинность высказывания
begin - начало алгоритма
readln (a);- компуктер запросит чтобы вы ввели переменную "a"
c:= (a div 10>0) and (a mod 5=0) - c будет истинен при том случае если a div 10>0 (при делении а на 10 целая часть будет больше 0) и a mod 5=0 (при делении a на 5 остаток будет 0)
writeln (с); - выводим с (True or False)
end. -конец алгоритма
Надеюсь, что понятно объяснил.