1
var 
i: byte := 1; 
sum: integer := 0;
begin 
//Предусловие 
writeln('*** Цикл с предусловием ***'); 
while i <= 100 do 
begin   
sum := sum + i;   
inc(i); 
end; 
writeln('Сумма = ', sum:5); 
//Постусловие 
sum := 0; i := 1; 
writeln('*** Цикл с постусловием ***'); 
repeat   
sum := sum + i;   
inc(i); 
until i > 100; 
writeln('Сумма = ', sum:5); 
//Счетчик 
sum := 0; 
writeln('*** Счетчик ***'); 
for i := 1 to 100 do sum := sum + i; 
writeln('Сумма = ', sum:5);
end.

2
var 
N: integer; 
i: integer := 1; 
sum: integer := 0;
begin 
write('Введите N: '); 
readln(N); 
//Предусловие 
writeln('*** Цикл с предусловием ***'); 
while i <= n do 
begin   
sum := sum + i;   
inc(i); 
end; 
writeln('Сумма = ', sum:5); 
//Постусловие 
sum := 0; i := 1; 
writeln('*** Цикл с постусловием ***'); 
repeat   
sum := sum + i;   
inc(i); 
until i > N; 
writeln('Сумма = ', sum:5); 
//Счетчик 
sum := 0; 
writeln('*** Счетчик ***'); 
for i := 1 to N do sum := sum + i; 
writeln('Сумма = ', sum:5);
end.