Someone

program haromszog;
uses Grafika;
var a,b:integer;
    c,O,S: real;
begin
   writeln('Add meg a haromszog oldalat!');
   readln(a);
   readln(b);
   c:=sqrt(a*a+b*b);
   O:=a+b+c;
   S:=(a*b)/2;

   writeln('A haromszog c oldala:' ,c);
   writeln('A haromszog kerulete:' ,O);
   writeln('A haromszog terulete:' ,S);
   setcolor(5);
   line(50,100,50+a,100+b);
   line(50,100,50,100+b);
   line(50,100+b,50+a,100+b);
end.