Дано целое число С.Напишите программу,которая возводит в квадрат остаток от целочисленного деления числа С на 10 и выводит на экран монитора результат

На Паскале:

program Ostatok;var c: integer;beginwriteln('Введите число С.');readln(c);writeln('Остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10));end.