Параллелепипед бетінің көлемі мен ауданын есептейтін процедура жазыңдар

if(a> b) cout < < a;

if(a< b)cout < < b;

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

var x,y,h: real;

begin

  h: =2;

  x: =1;

  repeat

        y: =5*x-2;

        writeln(x: 5,y: 5);

        x: =x+h;

  until x> 20;

end.