Farkli dongu komutlari kullanilarak 1' den n' ye kadar olan sayilarin toplaminin ekrana yazdirilmasi

program DALLANMA;
VAR i, n: INTEGER;
Top : Real;
Cev: Char;
Label Basla, Devam, Son;
begin
Basla:
i:= 0;
Top :=0;
Write ('Hangi sayiya kadar hesaplanacak?');
Readln (n);
Devam:
i := i+1; top := top + i;
if i = n then goto Son;
goto devam;
Son:
Writeln('1 den', n, 'e kadar sayilarin toplami: ', top: 5:0, 'dir.');
Writeln ('Toplama islemine tekrar baslamak istiyor musunuz? E/H');
Readln (Cev);
if ( Cev = 'E') or (Cev ='e') then goto Basla;
readln;
end.

program DALLANMA;
VAR i, n: INTEGER;
Top : Real;
Cev: Char;
Begin
repeat
Write ('Hangi sayiya kadar hesaplanacak?');
Readln (n);
i:= 0;
Top :=0;
For i := 1 to n do
top := top + i;
Writeln('1 den', n, 'e kadar sayilarin toplami: ', top: 5:0, 'dir.');
Writeln ('Toplama islemine tekrar baslamak istiyor musunuz? E/H');
readln (Cev);
until (Cev = 'h') or (Cev = 'H');
readln;
end.

program DALLANMA;
VAR i, n: INTEGER;
Top : Real;
Cev: Char;
Begin
i:= 0;
Top :=0;
Write ('Hangi sayiya kadar hesaplanacak?');
Readln (n);
While i <= n do
begin
Top := Top + i;
i := i + 1;
end;
Writeln('1 den', n: 3, 'e kadar sayilarin toplami: ', Top: 5:0, 'dir.');
readln;
end.