сейчас попробуем помочь, старичок)))
Denesis,
вроде вот так решается задача №2 на паскале:
program jj;
label 1;
var a,x,k:integer;
m,f:real;
begin
write('k=');read(k);
write('a=');read(a);
repeat
for x:= -3 to 3 do begin
f:=4*x + a +k/3;
m:=f;
if m=f then goto 1;
end;
until m<>f;
1: write('f=',f);
end.