Напишите на языке паскаль программу :

Var a, y, r1,r2,r3 : integer;
begin
readln(x);
readln(y);
r1 := x-y;
r2 := x*x+10;
r3 := r1/r2;
writeln(r3);
end.

Var x,y,r:real;
begin
readln(x);
readln(y);
r:=(x-y)/(x*x+10);
writeln(r);
end.