Question

Составьте программу нахождения У

Answer 1

var x, y: real;
begin
write('Введите значение х: ');
readln(x);
if x >= 0 then y := 4 * x + 10
else y := 8 + x;
writeln('y = ', y);
end.

Answer 2

кросс, а можешь и мне помочь http://znanija.com/task/10607768