Question

Помогите пожалуйста с информатикой.
1)Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые

Answer 1

var n,e,d,s: longint;
begin
read(n);
s:=n div 100;
n:=n mod 100;
d:=n div 10;
e:=n mod 10;
if (s=d) and(s=e)and(d=e) then writeln('ravny') else writeln('ne ravny');
end.