درخواست یه برنامه پاسکال در دلفی

سلام دوستان من رشتم نرم افزاره تاز کارهم هستم تو دانشگاه ما با دلفی برنامه پاسکال مینویسیم(چه جلب)
میخواستم برام یه برنامه بنویسید که:
1-یه جدول ضرب چاپ کنه البته مرتب،الف)اعضای قطر اصلی جدول ضرب رو نشون بده مثل حالت اسلش\
ب)اعضای روی اسلش،ج)اعضای زیر اسلش راستی حتما زبانش پاسکال باشه فقط خیلیزود که تا امشب فرصت دارم

دوست عزیز. برای نوشتن برنامه Pascal توی دلفی باید از سیستم Console استفاده کنی.
فرقی نمیکنه.
این نباید کسی برنامه درخواستی بزاره.
ولی اینقدر برنامه شما ابتدایی هستش که من کد اصلی برنامه رو برات مینویسم و خودت اصلاحات و تعاریفش رو درست کن.

موفق باشی :

کد:

---

for i:=1 to 10 do begin
  for j:=1 to 10 do write(i*j,"  ");
  writln();
end;

---

دوست عزیز این برنامه ای که نوشته من خودم نوشتم من منظورم اون چیزی بود که بالا گفته بودم

خودم اون برنامه رو ردیف کردم فقط یه درخواست کوچولو هرچی زودتر بهتر:

یه عددی از ورودی بگیره یکی یکی بهش اضاف کنه تا وقتی که سینوس اون بزرگتر از 75 صدم باشه راستی فقط از حلقه while استفاده بشه ممنون

تو رو خدا کمک کنید خیلی ضروریه:19:

کد:

---

while cos(x)<0.75 do x:=x+1;

---

خواهشا درخواست برنامه نکنید!

کد:

---


Var
  Number:integer;
  rSin: Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Enter the number: ');
  Readln(Number);
  rSin := Sin(Number);
  While rSin < 0.75 Do Begin
    Writeln('Sin(' + IntToStr(Number) + '): ' + FloatToStr(Sin(Number)));
    inc(Number);
    rSin := Sin(Number);
    Writeln('[ PRESS A KEY TO CONTINUE ]');
    Readln;
  End;
  Writeln('End of program.');
  Readln;
end.

---

ممنون دادا راستی پس کجا درخواست بدم؟:19:

خواهش می کنم امیدوارم بدردت خورده باشه...
درخواست برنامه رو نمی دونم کجا باید بدی, ولی میدونم اینجا برای راهنمایی ها و از ای قبیل چیزهاست نه برنامه کامل.

سلام دوستان من اگه بخوام تو پاسکال یه عدد رو وارنه چاپ کنم باید چیکار کنم تو ویژوال که آسون بود؟؟؟:41: