Напишите программу, выводящую на экран монитора все счастливые ...

Lera

1234567891011121314 procedure TForm1.Button1Click(Sender: TObject);vark,i,j:integer;begink:=10;for i:=1 to 90 do begin if (k mod 7)=0 then beginj:=j+1;stringgrid1.cells[1,i]:=inttostr(k);end;k:=k+1;end; label1.Caption:=inttostr(j);end;