Помогите пожалуйста. Нужно решить через программу 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.