Определить значение площади прямоугольника по его длине и диагонали в Паскале

program p;vara,b,c,s: integer;beginwriteln('введите длину:');readln(a);writeln('введите диагональ:');readln(c);b := sqrt((sqr(c) - sqr(a)));s := a * b;writeln('площадь прямоугольника: ', s);end.