Решите в паскале

1. Даны действительные числа x, y. Вычислить их разность и частное.

2. Дана сторона квадрата. Найти периметр, площадь и диагональ квадрата.

1.

Var x, y:real;

Begin

read (x, y);

writeln (x-y);

writeln (x/y:2:2); / / Округление до 3 знаков после запятой

End.

2.

Var x:real;

Begin

readln (x);

writeln (x*4); / / Периметр

writeln (x*x); / / Площадь

writeln ((x * sqrt (2)) : 3:3); / / Диагональ; Округление до 3 знаков после запятой

End.