составить программу Паскаль к задаче:

1)в 200 граммах воды растворили 25 грамм поваренной соли. найдите массовую долю соли в растворе?

2)вычислить площадь и периметр прямоугольного треугольника по заданным длинам двух катетов а и b

1.Program tt;var  A,B,C,D: Real;begin      Writeln ('Введите массу воды в граммах.'); Readln(A);      Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A;C := B/A;Writeln ('Массовая доля соли в раствворе - ',C,'.');End.    2.Program tt;var  A,B,PL,Per: Real;begin      Writeln ('Введите длинну первого катета.'); Readln(A);      Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2;PER := sqrt(B*B+A*A)+A+B;Writeln ('Площадь - ',PL,'.');Writeln ('Периметр - ',PER,'.');End.    

1) Program abc;var a,b:integer;     x:real;beginwriteln('Введите массу воды');readln(a);writeln('Введите массу раствора');Readln(b);x:=b/a*100;writeln(x,'%');end.2)Program tt;var  a,b,c,P:integer;     S:real;beginwriteln('Введите первый катет');readln(a);writeln('Введите второй катет');readln(b);c:=sqr(a)+sqr(b);P:=a+b+c;S:=a*b/2;writeln('Площадь=',S,' ','Периметр=',P);End.