Написать программы для решения : 1 даны стороны прямоугольника a , b. найдите его площадь и периметр. 2 дана длина ребра куба a. найти объем и площадь его поверхности. нужно на завтра !

1. begin var a,b: real; read (a,b); writeln ('периметр = ',(a+b)*2,' площадь = ',a*b); end.

Pascal abc const n=100; var mas: array [1..n] of real; i: integer; a,b: real; begin readln(a); readln(b); for i: = 1 to n do                begin                mas[i]: = random(101)-20;                 if i mod 2=0 then mas[i]: = mas[i]+a                            else mas[i]: = mas[i]-b;                 end; end.

Program z1; var mas: array[1..100] of integer; i,a,b,n: integer; begin writeln('введите количество элементов массива'); readln(n); writeln('введите число, которое хотите прибавить'); readln(a); writeln('введите число, которое хотите отнять'); readln(b); for i: =1 to n do begin mas[i]: =random(101)-20; write(mas[i],' '); end; for i: =1 to n do begin if i mod 2=0 then mas[i]: =mas[i]+a; if i mod 2=1 then mas[i]: =mas[i]-b; end; writeln; for i: =1 to n do write(mas[i],' '); end.