Pascal ABC Циклический алгоритм

Вычислить сумму натуральных чисел т 1 до 100
www.proshkolu.ru/club/pascalabc/file2/212787/

program summa;
uses crt;
var i, n :integer;
begin
clrscr;
for i:=1 to 100 do
begin
n:=n + i;
end;
writeln (`n=`, n);
end.

Угадай задуманное число
program prim6;
uses crt;
var m,n:integer;
begin
clrscr;
   randomize;
   m:=random(100);
   writeln('отгадай число !');
   readln(n);
     while n<>m do {пока n< >m повторить еще раз}
     begin
        if n<m then writeln('x>',n) else writeln('x<',n);
        readln(n);
     end;
   writeln('x=',m);
end.

Найти НОД (х,у)
program prim6d;
uses crt;
var x,y :integer;
begin
   clrscr;
      writeln('введите два числа');
      readln(x,y);
         repeat
         if x>y then x:=x mod y else y:=y mod x;
         until (x=0) or (y=0);
      writeln('НОД=',(x+y));
      readln;
 end.





program pr1;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
writeln (i);
end;
end.

1
2
3
4
5

program pr2;
uses crt;
var i:integer;
begin
clrscr;
for i:=5 downto 1 do
begin
writeln (i);
end;
end.

5
4
3
2
1