Помогите пж.. сделайте пж на паскале..

4)var a,b,p:real;
begin
Write('Введите a gt;gt;gt; ');
Read(a);
Write('Введите b gt;gt;gt;');
Read(b);
p:=a+b+Sqrt(a*a+b*b);
Writeln('===================');
Write('Периметр gt;gt;gt; ');
end.


5)var r1,r2,s:real;
begin
Write('Введите r1 gt;gt;gt; ');
Read(r1);
Write('Введите r2 gt;gt;gt; ');
Read(r2);
Writeln('===================');
s:=(Pi*r1*r1)-(Pi*r2*r2);
Write('Площадь gt;gt;gt; ',s);
end.

6)var x,y,s:real;
begin
Write('Введите x gt;gt;gt; ');
Read(x);
Write('Введите y gt;gt;gt; ');
Read(y);
Writeln('===================');
s:=(2*x+y)*(x-y);
Write('s gt;gt;gt; ',s);
end.