Помогите пожалуйста написать программу на паскаль

Тут 3 варианта возможны (т.к. существуют 3 цикла - for, while и repeat. Соответственно каждый вариант под свой цикл). Начну, пожалуй, в том же порядке, в котором и назвал циклы.

Итак, 1-ый вариант (с циклом for):

 Program P1; 

uses crt; 

var i, sum: integer; 

begin 

clrscr; 

sum:=0; 

for i:=1 to 10 do sum:=sum+i; 

writeln ('Сумма натуральных чисел от 1 до 10 составляет: ', sum); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

2-ой вариант (с циклом while):

 Program P1; 

uses crt; 

var i, sum: integer; 

begin 

clrscr; 

i:=1; 

sum:=0; 

while i10); 

writeln ('Сумма натуральных чисел от 1 до 10 составляет: ', sum);   

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Ну а так пользователь с ником Krab Bark правильно заметил, что такая формула не очень рациональна - ну и мой код (чисто по такой формуле) наглядно демонстрирует, что получается лишняя писанина, когда можно сделать гораздо лучше по другой формуле (10*11 div 2):

 Program P1; 

uses crt; 

begin 

clrscr; 

writeln ('Сумма натуральных чисел от 1 до 10 составляет: ', 10*11 div 2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

На Pascal - в разделе "Другие языки". И будет тогда

var i,sum:integer; begin sum:=0; for i:=1 to 10 do sum:=sum+i; writeln(sum) end.

Хотя, конечно, решать по этой формуле - глупость. Гораздо рациональнее программа
begin writeln(10*11 div 2) end.