Изменения
/* Игра с компьютером */ на случай, если напишешь меньшее число, чем было
write('Твой ход: ');
readln(h);
if (h>S) and (round(sqrt(abs(h-S)))=sqrt(abs(h-S))) and (h<197) then S:=h else
begin
writeln('Ты неправильно походил, мудила!');
