1 Найти Кощея
2 Убить кощея кислотой
3 Скрыть труп Кощея
var
a: real;
i: integer;
mas: array[0..999] of real;
begin
a := -4.5;
i := 0;
while a <= 3.5 do
begin
mas[i] := a;
a += 0.5;
write(mas[i], ' ');
i += 1;
end;
end.
1гбайт=1024мбайт
1/2гбайт=512мбайт