Определить делится ли ** 5 введенное число x . если делится, то другому числу y присвоить...

Question

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

Answer 1

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