Question

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

Answer 1

program z1;
var c: integer;
x,y: real;
begin
read(c);
x:=c div 5;
y:=sqr(x);
writeln('y=',y);
end.