Паскаль я написать программу выводящую числа от 1 до 100​

program chisel_100;

var k: integer;  

begin

for k : = 1 to 100 do

write(' ',k) ;

end.

2) const       handsfree = true; var       a: array[1..100] of real;       i, n, mini: integer; begin       {ввод массива}       if handsfree then               n : = random(27+27) -27       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {минимум и максимум}       mini : = 1;       for i : = 1 to n do               if a[mini] > a[i] then mini : = i;       writeln('min = ', a[mini]);       writeln('mini = ', mini); end. 1)const       handsfree = false; var       a: array[1..100] of real;       i, n: integer;       sum, product, harmonic: real; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();                   {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if abs(a[i]) < = 5 then                       sum : = sum + a[i];       writeln('sum = ', sum); end.

Var a,b,x,y,z,m: real; begin write ('размеры отверстия a,b='); read(a,b); write ('размеры кирпича x,y,z='); read(x,y,z); if a> b then begin m: =a; a: =b; b: =m end; if x> y then begin m: =x; x: =y; y: =m end; if x> z then begin m: =x; x: =z; z: =m end; if y> z then begin m: =y; y: =z; z: =m end; if (x> =a) or (y> =b) then write('кирпич не пройдет через отверстие') else write('кирпич пройдет через отверстие'); end. пример: размеры отверстия a,b=3 4 размеры кирпича x,y,z=4 3 2 2 3 4 кирпич пройдет через отверстие