Напишите программу которая решит этот пример

Photomatch

Объяснение:

Направляешь камеру, фоткаешь, оно решает.

program a1;

var y, a, x: real;

begin

readln (x);

readln(a);

x:= sqrt (sqr (x) +1);

y := x/5*a;

writeln(y);

end.

Объяснение:

Надеюсь "