Процедура с параметром и без параметра

[admin22]

Привет всем.
Имеется программа

program a1; 

var a,b,c:real;

begin
writeln ('введи катеты треугольника');
readln (a,b);
c:= sqrt (a*a+b*b);
writeln ('Гипотенуза треугольника   ', c:6:2);

end.

надо переделать ее в процедуру с параметрами и в процедуру без параметров. Заранее спс

[JUDAS]

с параметрами

program a1; 
procedure MyProc(A,B : real);
var c:real;
begin
  c:= sqrt (a*a+b*b);
  writeln ('Гипотенуза треугольника   ', c:6:2);
end;

begin
 writeln ('введи катеты треугольника');
 readln (a,b);
 MyProc(a,b);
end.

без параметров

program a1; 
procedure MyProc;
var a,b,c:real;
begin
  writeln ('введи катеты треугольника');
  readln (a,b);
  c:= sqrt (a*a+b*b);
  writeln ('Гипотенуза треугольника   ', c:6:2);
end;

begin
 MyProc;
end.

[admin22]

Сообщение от JUDAS

с параметрами

program a1; 
procedure MyProc(A,B : real);
var c:real;
begin
  c:= sqrt (a*a+b*b);
  writeln ('Гипотенуза треугольника   ', c:6:2);
end;

begin
 writeln ('введи катеты треугольника');
 readln (a,b);
 MyProc(a,b);
end.

без параметров

program a1; 
procedure MyProc;
var a,b,c:real;
begin
  writeln ('введи катеты треугольника');
  readln (a,b);
  c:= sqrt (a*a+b*b);
  writeln ('Гипотенуза треугольника   ', c:6:2);
end;

begin
 MyProc;
end.

Большое спс что помогли