Изменения
/* Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху */
write('Твой ход, первый квадрат: ');
readln(h);
if (h>0) and (h<=lim) and (round(sqrt(h))=sqrt(h)) and (S+h<N) then S:=S+h else
begin
writeln('Ты неправильно походил, мудила!');
write ('Твой ход, второй квадрат или 0: ');
readln(h);
if (h<=lim) and (round(sqrt(h))=sqrt(h)) and (S+h<N) then S:=S+h else
begin
writeln('Ты неправильно походил, мудила!');
