- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
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 anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
<span>end.</span>