Помогите пожалуйста с паскалем номер 2 вариант 1

Question

Помогите пожалуйста с паскалем номер 2 вариант 1

---

Answer 1

Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then<br>writeln('Нет')
end.