3)запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 15; n : = 0; while 50 < s*s do begin s : = s - 1; n : = n + 2 end; writeln(n) end.

Проверено на Паскаль АВС

Program Dafnochka;
uses crt;
var
  r,sum: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число');
  writeln('(или введите 0 для конца последовательности) ');
  while r<>0 do
    begin
      write("Ввод:") ;  
      readln (r);
      sum:=sum+r;
      k:=k+1;  
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Среднее значение равно ',sum/(k-1));
end.

Program Dafnochka;
uses crt;
var
  r,sum: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число');
  writeln('(или введите 0 для конца последовательности) ');
  while r<>0 do
    begin
      write("Ввод:") ;  
      readln (r);
      sum:=sum+r;
      k:=k+1;  
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Среднее значение равно ',sum/(k-1));
end.

Проверено - работает на Паскаль АВС