program one;
uses crt;
var x,z: integer;
begin
writeln('введи число');
readln(x);
if x div 5=0 then z:=x-5 else if z:=x/5;
writeln ('z=',x);
end.

(выдаёт ошибку на 7 строчке(встретился := , а ожидался оператор))

спасибо, но после запуска вводишь число и оно только умножается на 2, даже если делится на 5 без остатка

Ответ:

Простая ошибка

Объяснение:

program one;

uses crt;

var

x,z:integer;

begin

writeln('введи число');

readln(x);

if x div 5=0 then z:=x-5

else

z:=x/5;

writeln('z=',x);

end.