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

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

write (' введите целое число с ');

read (n); / / вводим с клавиатуры число

k:=n mod 10; / / получаем остаток от деления этого числа на 10

s:=sqr (k); / / возводим в квадрат полученный остаток от деления

writeln (' Полученный результат = ', s) / / выводим ответ

end.