По информатике.вычислить p и s ромба у которого сторона и меньшая диагональ=a нужно решить через программу pascal abc

Var p, s, a: real;
begin
writeln ('Введите число a');
readln(a);
p:=4*a;
s:=a*a*sqrt(3)/4;
writeln('Периметр ромба равен ', p:2:2);
writeln('Площадь ромба равна ', s:2:2);
end.