Calculate the area of a rectangle from a known side and diagonal. You need to write an algorithm in Pascal.

The program looks like this:
Var
a, b, h: real;
begin
writeln (‘the required side and diagonal length must be here’);
readln (a, b);
// find the height and calculate the area
h: = sqrt (sqr (b) – sqr (a));
writeln (‘area:’, a * h);
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.