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

Var
c: integer;
begin
read(c);
writeln(sqr(c div 5));
end.

Program del;
var p, s: integer;
begin
writeln('Введите делимое'); readln(p);
s:= sqr(p mod 5);
Writeln('Остаток в квадрате =', s);
end.