Числа А и B выражают длины катетов одного прямоугольного треугольника, а D и C — другого. Эти треугольники являются подобными — Pascal(Паскаль)

program rew2;
var a,b,c,d:real;
begin
    write ('vedite storonu');  readln (a,b,c,d);
    if (a/b=c/d) then writeln ('podobni') else writeln ('ne podobni');
    readln;
end.