SOURCE CODE PASCAL RUMUS PHITAGORAS

uses crt;

var
  a,b:real;
  c:real;

begin
  clrscr;

  write('a= '); readln(a);
  write('b= '); readln(b);

  c:=a*a+b*b;
  c:=sqrt(c);

  writeln('c=',c:8:2);
  readln;

end.