Pascal
var
a: integer;
b: double;
begin
writeln('Введите число:');
readln(a);
if a mod 3 = 0 then
b:=a/4
else
b:=a*5;
writeln(b:2:2)
end.
Pascal
var
a: integer;
b: double;
begin
writeln('Введите число:');
readln(a);
if a mod 3 = 0 then
b:=a/4
else
b:=a*5;
writeln(b:2:2)
end.