определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль

var x,y: integer;beginwrite('Введите х ');readln(x);if (x mod 5 <> 0) then y:=500 else y:=100;writeln('y=',y);end.