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

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.