ПОМОГИТЕ!Задача по информатике.Вычислить p и s ромба у которого сторона и меньшая...

Question

ПОМОГИТЕ!Задача по информатике.Вычислить p и s ромба у которого сторона и меньшая диагональ=a
Нужно решить через программу Pascal ABC

Answer 1

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.