Антивирус, ccleaner,браузеры.
<span>Пример 1. Квадраты чисел от 2-х до 10-и.
</span>for x:=2 to 10 do WriteLn(x*x);
<span>Пример 2. Латинский алфавит.
</span>for ch:='A' to 'Z' do Writeln(ch);
<span>Пример 3. Использование цикла с downto.
</span>for i:=10 downto 1 do WriteLn(i);
<span>Пример 4. Использование составного оператора.
</span><span>for x:=1 to 10 do begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;
</span>
38400 байт / 1024 = 37,5 Кб
1 Гб = 1024 Мб
1457664 байт / 1024 = 1423,5 Кб