Составить программу для решения : 1. известна диагональ квадрата. найти его периметр. 2. дана масса в килограммах. найти число полных центнеров в ней.

Решение обеих задач в прикрепленном файле. Удачи!

1.
var a,x:real;
const P = 2;
begin
writeln ('Введите диагональ квадрата');
read (a);
x:=(a/sqrt(P));
writeln (4*x);
end.