Условный оператор

program z42;
var y,b,x:real;
a:integer
begin;
writeln('Введите а');
readln(a);
writeln('Введите х');
readln(x);
writeln('Введите b');
readln(b);
if a=2 then  y:=a+b*x+c*sqr(x); writeln(y);  
else if a=3 then y:=sqr((a*sin(x));
writeln(y) else
if a=4 then y:=a+b*x; writeln(y) else if a=5 then y:=((a*(sqr(x)*sqr(x)))/4)+((b*sqr(x))/4); writeln(y) else
writeln('Нет решений');
end.

program z42;
uses crt;
var y,b,c,x:real;
    a:integer;
begin
clrscr;
writeln('Введите a');
readln(a);
writeln('Введите x');
readln(x);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if a=2 then  y:=a+b*x+c*x*x
else if a=3 then y:=sqr(a*sin(x))
else if a=4 then y:=a+b*x
else if a=5 then y:=(a*x*x*x*x)/4+b*x*x/2;
if a in [2..5] then
writeln('y=',y:0:5)
else writeln('Нет решений');
readln
end.

uses crt;
procedure Sort(a,b,c:integer; var mx,sr,mn:integer);{выяснение какая сторона самая длинная, 
самая короткая и средняя}
begin
mx:=a;{самая длинная сторона}
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;{самая короткая}
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;{средняя}
end;
var a,b,c,d,e,max,srd,min:integer;
begin
clrscr;
repeat
writeln('Вводите по 3 числа, окончание ввода c=0:');{чтобы не выходить из программы каждый раз, 
будем вводить тройки чисел, пока не надоест, тогда введем с=0}
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then{одна сторона длиннее или равна чем сумма 2х других}
writeln('Это не треугольник!')
else if (a=b)and(b=c)then writeln('Это равносторонний треугольник!'){все стороны равны}
else if ((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>c)){две стороны равны}
then writeln('Это равнобедренный треугольник!')
else
 begin
  Sort(a,b,c,max,min,srd);{выясняем относительные длины сторон, находим максимальную}
  d:=min*min+srd*srd;
  e:=max*max;
  if d>e then writeln('Это остроугольный треугольник!'){следствие теоремы косинусов}
  else if d<e then writeln('Это тупоугольный треугольник!')
  else if d=e then writeln('Это прямоугольный треугольник!');
 end;
until c=0;
readln
end.