Нужно решить через программу pascal abc определить объем цилиндра и площадь его полной поверхности, если известны радиус основания и высота цилиндра. формулы: v=πr2h; s=2πr(r+h). 2.вычислить периметр и площадь ромба, у которого сторона и меньшая диагональ равны а. ()

1:
var r, h: real;
begin
  readln(r, h);
  writeln('V = ', pi * r * r * h);
  writeln('S = ', 2 * pi * r * (r + h));
end.

2:
var a: real;
begin
  writeln('P = ', 4 * a);
  writeln('S = ', a * a * sqrt(3) / 2);
end.