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

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

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

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

//Pascal ABC.NET v3.1 сборка 1219Var 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