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

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.