Question

Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.

Answer 1

var
a:integer;
begin
writeln('Введите число');
read(a);
if a mod 5<>0 then begin
a:=a*5;
writeln(a);
end
else
writeln(a/5);
end.