Pascal:
var
a,b,c:integer;
begin
write('Citeste a:');
readln(a);
write('Citeste b:');
readln(b);
c:=(2+4-b div 3+a-2 div a*3+3+b)div 2 +b-a;
writeln('Rezultatul=',c);
end.
Pseudocod:
Inceput
Citeste a;
Citeste b;
Rezolva c:=(2+4-b div 3+a-2 div a*3+3+b)div 2 +b-a;
Afiseaza rezultatul c;
Sfarsit.
