№1 заполните массив а нулями №2 заполните массив а первыми n натуральными числами начиная с 1 №3 заполните массив а первыми n натуральными числами начиная с х ( ввести х с клавиатуры) , заранее

Const n=10; var   a: array[1..n] of integer;   i,x: integer; begin // №1   for i: =1 to n do begin       a[i]: =0; write(a[i]: 3);   end;   writeln;   // №2   for i: =1 to n do begin       a[i]: =i; write(a[i]: 3);   end;   writeln;   // №3   readln(x);   for i: =1 to n do begin       a[i]: =x+i-1; write(a[i]: 3);   end; end.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.