Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
<span>end.</span>
Странные вопросы и составлены не совсем грамотно. Если рассматривать все попунктно, то во всем виноват бюджет!!!