var
n, r: integer;
begin
write('n = ');
readln(n);
writeln;
while (n > 0) and (r < > 2) do
r : = n mod 10; { < == последняя цифра числа }
n : = n div 10 { < == удаляем последнюю цифру }
end;
writeln(r = 2); { < -- выводим значение выражения (r=2) }
readln
end.
var
n, r: integer;
begin
write('n = ');
readln(n);
writeln;
while (n > 0) and (r < > 2) do
begin
r : = n mod 10; { < == последняя цифра числа }
n : = n div 10 { < == удаляем последнюю цифру }
end;
writeln(r = 2); { < -- выводим значение выражения (r=2) }
readln
end.