простенькая задача на множества, Срочняк!!! Опции

[emm]

Из множества целых чисел 1..100 выделить множество чисел, являющихся в свою очередь квадратами целых чисел

[Romtek]

Поправь так:

Код

Sq := Sqr (N);
if (Sq <= Max) then Include (kv, Sq);

И вместо write(' ',i); напиши write (i : 4);
Так красивее.

Множества, по-моему, здесь вообще не нужны.

Код

Sq := Sqr (N);
if (Sq <= Max) then write (Sq : 4);