Определение вида треугольника (прямоугольный) по трем сторонам p. s. нужно составить алгоритм

Program outr; var a,b,c: real; begin readln(a,b,c); writeln('a=',a,' b=',b,' c=',c); if (a+c> b) and (a+b> c) and (c+b> a) then begin if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('треугольник прямоугольный'); end else writeln('треугольник построить невозможно'); end.

program bapehbe;

var

    l, b, s : integer;

    o : real;

begin

    writeln (' skolko litrov varenya v tazy? ');

    readln (l);

    writeln (' kakaya emkost banok? ');

    readln (b);

    s: = l div b;

    o: = l mod b;

    writeln (' polnih banok_', s);

    writeln (' litrov ostaloc_', o: 2: 2);

    readln;

end. 

артефакт, инстинкт, антрацит, оригинал.

правило шифрования - слова написаны справа налево, т.е. наоборот.