Составить программу. дано целое положительное число n. составить программу, которая, если число четное, выведет последнюю цифру этого числа.

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.