Дано число, удвоить его в 3 раза если оно кратно 17. в противном случае уменьшить на 4. вывести ответ на экран. в pascal abc

Var a:real;
begin
read(a);
if a mod 17 = 0 then begin
write(a*2*3);
end;
else begin
write(a-4);
end;
end.