var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.
Var sum,i:integer;beginsum:=0;for i:=100 to 500 dosum:=sum+i;writeln (i);<span>end.</span>
Основное достоинство - наглядность. Диаграммы позволяют быстро и лёгко сравнить какие-либо числа
type
adrcel=^Element;
Element=record
info:integer;
next:adrcel;
end;
var
start,last,new_el:adrcel;
i:integer;