Pascal :

var
a,i,j,b:longint;
k:boolean;
begin
k:=true;
while k=true do
begin
inc(i);
if (i mod 7=0) and (i mod 2=1) and (i mod 3=1) and (i mod 4=1) and (i mod 5=1) and (i mod 6=1) then
begin
write(i*80);
k:=false;
end;
end;
end.