Определите значения целочисленных переменных x, y ,z после выполнения программы: x: =13; y: =3; z: =x; x: =z div y; y: =x; 1) x=13, y=4, z=4 2)x=13, y=13 ,z=13 3)x=4, y=4, z=13 4)x=4, y=3, z=13

Var x,y,z:integer;

begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.

ответ
3)x=4, y=4, z=13