Question

Посчитать сумму пяти введенных чисел двумя способами:1) с помощью цикла «пока»; 2) с помощью цикла «для каждого». ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!

Answer 1

{
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others

}

program X_and_Y;
Var count, n, sum : integer;

begin
    writeln('Введите 5 чисел:');
    count:=1;
    sum:=0;
    while count<=5 do begin
        readln(n);
        sum := sum+n;
        inc(count);
    end;
    writeln('Сумма равна ', sum);
   
    sum := 0;
    for count:=1 to 5 do begin
        readln(n);
        inc(sum, n);
    end;
    writeln('Сумма равна ', sum);
end.