Question

СРОООЧНО!!!!!!!!!!!!!!!!
(паскаль)
написать программы

Answer 1

z10)
var A, B, C: integer;
begin
  write('Введите A, B, C: '); readln(A, B, C);
  writeln('Сумма = ', A + B + C);
  writeln('Произведение = ', A * B * C);
end. 

z11)
var a,s,v:integer;
begin
  writeln('Введите длинну куба: ');
  readln(a);
  s:=6*a*a;
  v:=a*a*a;
  writeln('Объем = ', v);
  writeln('Площадь боковой поверхности = ', s);
end.

z13)
var A, B, C: integer;
begin
  A := 20; B := 13;
  C := A;
  A := B;
  B := C;
  writeln('A = ', A);
  writeln('B = ', B);
end. 

z14)
var A, B: integer;
begin
  A := 20; B := 13;
  A:=A+B;
  B:=A-B;
  A:=A-B;
  writeln('A = ', A);
  writeln('B = ', B);
end.