Программа работает криво 10 правильно 5 уже нет срочно в чем причина?
//изменения величин переменны y,x
program xyz;
var x,y,z:byte;
begin
writeln('Введите значение переменной x');
readln(x);
if x=5 then
begin
y:=8;
z:=3;
end
else y:=0; z:=0;
writeln(y);
writeln(z);
end.