Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Учёные используют Системное ПО
Дизайнеры используют Прикладное ПО
Веб.-Прогр. использует Системы прогр.
Методист использует Системное ПО
Дизайнеры используют Прикладное ПО
Действия:вырасти,согреть,покрасить,проехать
var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.