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

program zz1;

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

begin

write (' введите заданное число ');

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

k:=c div 5; / / находим частного от целочисленного деления числа с на 5

write (' квадрат частного от целочисленного деления числа с на 5 = ', sqr (k)); / / выводим ответ

end.