var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.
Жил был цветочек. Рос он в тепле , жил хорошо .
Но вдруг появилась злая туча и начала сильно сильно поливать цветочек . Цветочек моментально стал грустным .конец
1 мбайт=1024кбайт
1024*25=25600(кбайт)
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении.