Составить программу, которая выводит на экран результат целочисленного деления заданного целого числа на 2, если оно чётное
Var c:integer; Begin c:=c mod 5; Writeln(c*c); End.