Запишите по правилам языка паскаль следующие выражения: a) (12+c) / 158 + 12,3x б) 1/7d - 3 / ( 10 + f(в квадрате))

Var
r1,r2:real;
x,c,d,f:integer;
begin
read(c,x);
r1:=(12+c)/(158*12.3*x);
r2:=((1/7)*d-3)/(10+sqr(f));
writeln(r1:2:3);
writeln(r2:2:3);
end.

Если всю программу писать не нужно, то напиши то, что идёт после 'r1=' и 'r2='