Question

Пожалуйста, помогите написать программу для системы на фото

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 x,y:real;
begin
 readln(x);
 if x>0 then y:=power(x,4)-2*sqr(x)-6 else y:=sqr(x)-5*x+1;
 writeln(y);
end.

Пример ввода:
0
Пример вывода:
1

Answer 2

а разве сначала не writeln , а потом readln?

Answer 3

writeln() - вывод, readln() - ввод

Answer 4

ааа, хорошо, спасибо