1)
var
a,b,c:integer;
begin
read(a,b,c);
writeln(a mod 10);
writeln(b mod 10);
writeln(c mod 10);
end.
2)
var
n:integer;
begin
read(n);
if (odd(n)=False) and (n>100) then
writeln('Este') else
writeln('Nu este');
end.
3)
var
n:integer;
begin
read(n);
if (n>=100) and (n<500) then
writeln('este') else
writeln('nu este');
end.