Var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.
К примеру, видеоигра — мультимедиа технология. В ней одновременно обеспечивается работа звука (голоса персонажей), анимации (объемная анимация персонажей), статистических изображений (меню игры), видеороликов и текстами в диалоговом режиме (диалоговое окно).
Program abc;
var a,b,c,x :integer;
begin
read(a,b,c);
x:= a;
if x<=b then
x:=b;
else
begin
if x<=c then
x:=c;
end;
write (x);
end.