Изменения
/* Прога для варианта игры с добавлением 1 или 2 квадратов */
BEGIN
writeln('Добро пожаловать в "Просто добавь квадрат1 или 2 квадрата"! Прибавлять Вводить можно только квадраты натуральных чисел и писать сразу сумму (на первом ходу это просто квадрат). Выиграет тот, кто составит сумму, равную победному числу. Составлять сумму, превышающую это число, запрещено.');
Net:
write('Назови победное число (НЕ квадрат натуральногои НЕ сумму квадратов): ');
readln(N);
for x:=1 to trunc(sqrt(N) do