Напишите программу. В Паскале! Дана система: y={1,если x<0 {x+3, если 0<=x<10 {x/2, если x>=10

Предыдущий
вопрос Следующий
вопрос

program System;
var
x, y: Integer;
begin
writeln('Введите значение x:');
readln(x);

if x < 0 then
y := 1
else if (x >= 0) and (x < 10) then
y := x + 3
else
y := x div 2;

writeln('Значение y = ', y);
end.