Решите в паскале 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.