Program Test;
Var ans1, ans2, ans3: real;
Begin
ans1 := (158 - sqr(12.1)) / 5.1 * 10.2;
ans2 := 256 + (148 + sqr(1.25)) / sqrt(15);
ans3 := sqr(16.2) + 526 / sqrt(9);
Writeln();
Writeln('ans1 = ', ans1);
Writeln('ans2 = ', ans2);
Writeln('ans3 = ', ans3);
End.
P.S. ans1, ans2, ans3 - это ответы на а, б, в соответственно