Question

дано целое число.напишите программу которая выводит на экран последнюю цифру данного числа затем возводит её в квадрат и выводит на экран монитора результат

Answer 1

program test;
var number, temp: integer;
begin
   write('Enter the number: ');
   readln(number);

   temp:=number mod 10;

   writeln(temp);
   writeln(temp, ' ^ 2 = ', temp*temp);

   readln;
end.