Отсутствует раздел перемененных, в паскале нужно перечислять используемые переменные в самом начале программы
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
Ответ в задании из информатики (А)
37 mod 2 будет равно 1.
151 mod 2 будет равно 1.