Составить программу которая возводит в квадрат остаток от целочисленного деления числа а на 15 и выводит результат

*не div, а mod

Program Program2;var   X:Integer;begin  ReadLn(X);  WriteLn(sqr(X mod 15));end.

C и D - абсолютно лишние переменные, по большому счёту 1-й достаточно

++

Program Program1;var  A,B:Integer;  C,D:Real;Begin  ReadLn(A);  B:=A mod 15;  C:=sqr(B);  WriteLn(C);End.