Задача 3
program n n;
var x,y: integer;
begin
х: =7;
y: = 3;
if (y div x) >0 then x:=x+y mod 3
else y:=y div 3+2*x
writeln(y);
end.
Задача 4
program n n;
var x,y: integer;
begin
x:=4;
y:=3;
if (x div y) <>0 then
if x<>y then x:=x div 4+x mod 8
else x:= x mod y
else x:=y mod 4+x*2
writeln (x)
end.
В задаче 3 - 15
В задаче 4 - 5