readln(a,b,c);
a:=a*b*c;
b:=a mod 10;
if (a div 3 = 0) then writeln('Делится на 3');
writeln('Последняя цифра: ',b);
readln(a,b,c);
a:=a*b*c;
b:=a mod 10;
if (a div 3 = 0) then writeln('Делится на 3');
writeln('Последняя цифра: ',b);