Сколько раз напечатается" ПРИВЕТ"?
program n1;
var n:integer;
begin
n:=0;
while n<=5 do
Begin
writeln ('Привет') ;
n:n+1;
end;
end.
​

слово привет напечатается 6 раз

6 раз напечатается слово "ПРИВЕТ".

Первое: program r;       var a: array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum: integer;       begin;       for i: =0 to 8 do               if a[i]> 0 then begin;                       sum: =sum+a[i];                       l: =l+1;               end;       for i: =0 to 8 do               writeln('a[',i,'] = ', a[i]);       write('сумма положительных элементов равна ',sum,', а из количество ',l); end. второе: program t;       var d: array [0..40] of integer; l,x: integer;       begin;       for x: =0 to 40 do begin;               d[x]: =45*x+15;               if d[x] mod 2 = 1 then l: =l+1;       end;       write('кол-во нечётных элементов ',l); end. третье: program y;       var p: array [0..25] of real; k: integer; avg: real; begin;       for k: =0 to 25 do begin;               p[k]: =7*k+3*k/15;               avg: =avg+p[k];       end;       avg: =avg/26;       write('среднее значение элементов массива ', avg); end.