Паскаль. Очень нужна помощь.

[Анкудович]

Напишите программу, которая считывает с клавиатуры переменные данные a, b, c и вычисляет следующие выражения:


здесь должна быть фотография с примерами, которая внизу


При любых значениях переменных программа выполняется корректно? С чем это связано?

[digitalis]

Первая задача:

program  abc ;
var y,a,b,c : real ;
begin
  Readln (a,b,c) ;
  y := Sqrt (a+a-3)/(b-1)+Sqrt (c*(c + a) + a*a) ;
  Writeln (y) ;
  Readln (y)
end.

При a<1.5 и b=1 не будет работать (корень из отр. числа и деление на 0 соответственно.)
Остальные решай сам, я скажу, где что неправильно

[newerow1989]

var a,b,c,s:real;
begin
   Write('a = ');Readln(a);
   Write('b = ');Readln(b);
   Write('c = ');Readln(c);
   s:=Sqrt(2+Sqrt(2+Sqrt(b+Sqrt(Abs(c-a)))));
   Writeln('s = ',s:5:5);
   s:=1/(1+1/(a+(1-b)/(1-c)));
   Writeln('s = ',s:5:5);
   Readln;
end.