1 формула соответствует рисунку.
Теперь не плагиат
program pr;var c: integer;beginwriteln('Введите число С');readln(c);writeln('Остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10));end.