Compile and Execute Pascal Online

Program HelloWorld(output);
var a,b,c:integer;
begin
  writeln('Input side a');
  readln(a);
  writeln('Input side b');
  readln(b);
  writeln('Input side c');
  readln(c);
   If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(c)+sqr(a)=sqr(b)) then
   writeln('this is a right angle triangle')
   else
   writeln('this isnt a right angle triangle');
end.