Pascal Progmramlamada Yardımcı olcak Çok ACELE????

Merhaba arkadaşlar
Pascal programlama dili ödevim var çoğu yaptım fakat bazılarını yapamadım yapamadıklarım aşağıda bilen bana yardımcı oalbilirmi acaba
Aşağıdaki programlar yazılacak.
YAPILDI:1.Girilen 2 sayıdan büyüğü ekranda gösteren bir program yazınız.
YAPILDI:2.Girilen 3 sayıdan büyüğü ekranda gösteren bir program yazınız.
7Klavyeden 2 sayı girilecektir.Ekrana küçük sayıdan büyük sayıya kadar tüm tüm sayıları sırası ile yazınız.
8.Klavyeden 2 sayı girilecektir.Ekrana büyük sayıdan küçük sayıya kadar tüm sayıları tersten ayzan bir program yazınız.9-8-7-6 gibi.
13.Klavyeden 1 ile 10 arası bir sayı girildiğinde ekrana girilen sayının katlarını yazan bir program yazınız(örnek 3 girildiğinde ekrana 3,6,9,12,15,18,21,24,27,30 yazacak)
15.Klavyeden girilen 5 sayının en küçüğü ile en büyüğü toplayıp sonucu ekranda gösteren program yapınız.

Şimdiden teşekkürler.

İyi akşamlkar...

Anlatım karışık ve saçma .
Sana tüyolar vereyim bilmiyorsan tabi..
Değişken ;
begin
kodlaman
end şeklinde oluşur...
if,dc,in vb. değişkenleri vardır..
Ödevin ne zamana bilmem ama hiçbirşey anlamadım yazdığından...

StyLes' Alıntı:

Anlatım karışık ve saçma .
Sana tüyolar vereyim bilmiyorsan tabi..
Değişken ;
begin
kodlaman
end şeklinde oluşur...
if,dc,in vb. değişkenleri vardır..
Ödevin ne zamana bilmem ama hiçbirşey anlamadım yazdığından...

Genişletmek için tıkla ...

Hocam belirtiğim maddeler yazılacak bunlar kaldı.

Ekleme: 1.Girilen 2 sayıdan büyüğü ekranda gösteren bir program yazınız.
2.Girilen 3 sayıdan büyüğü ekranda gösteren bir program yazınız.
Şıkları yapılmıştır
KODU:
uses crt;
var
s,i,eb:integer;
top:real;
begin
clrscr;
write('1. Sayıyı giriniz = ');readln(s);
eb:=s; ek:=s;
top:=top+s;
for i:=2 to 3 do
begin
write(i,'. Sayıyı giriniz = '); readln(s);
if s>eb then eb:=s;
top:=top+s;
end;
writeln('---------------------');
writeln('En büyük sayı = ',eb);
readln;
end.