Объяснение:
Нет возможности писать на паскале, но вот как это решается:
a - введенная сторона
d := a * sqrt(2)
p := 4 * a
s := a * a
