Ну - это очень просто ))) program test;var number, temp: integer; begin write('Enter the number: '); readln(number); temp:=number mod 10; writeln(temp, '^2=', temp*temp); readln; end.