Выполнить используя цикл while:  ввести с клавиатуры число. увеличивать переменную i до тех пор, пока она не станет равна введенному числу;  программа рассчитывает сумму цифр введенного пользователем числа.

1) var i,n: integer; begin i: =0; writeln('введите число'); readln(n); while i< > n do begin inc(i); writeln(i); end; end. 2) var i,n,x,count: integer; begin writeln('введите кол-во цифр'); readln(n); for i: =1 to n do begin writeln('введите ',i,' число'); readln(x); inc(count,x); end; writeln('сумма чисел: ',count); end.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

виды алгоритмов по способу записи 

1)текстовый

2)графический.

виды алгоритмов по последовательности исполнения шагов-команд

1)линейный

2)разветвляющийся