ответ:
uses crt; (если используешь абс паскаль)
var n,b,k: integer;
begin
writeln ('n');
readln (n);
k: =n mod 2;
b: =n mod 10;
if k = 0 then writeln (b);
end.
объяснение:
