Переставьте местами строчки вниз и пока слева стена местами
Дело в том, что в русском языке нет звука [я]. Букву я мы воспроизводим с помощью звуков [й],[а]. Поэтому само задание неверное.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
1)
S:=200;
a:=20;
b:=S / a;
P:=2*(a+b);
2)
P:=100;
a:=10;
b:=(P / 2) - a;
S:=a*b;
3)
S:=36;
a:= sqrt (S);
P:=4*a;
(sqrt - извлечение квадратного корня)
(Попробуйте сами провести вычисления по составленным алгоритмам!)
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.