[viv]

جملة IF تحتاج الى فهم بسيط
يمكنك وضعها بين عبارتي Begin وايضا End 

كود :

if a = 1 then
begin
  b:= a + 13;
  c:= a * b;
end

اذا كان الشرط واحد تستطيع الاستغناء عن Begin مثل

كود :

if a = 1 then
  b:= a + 13;

لاحظ كما فعل الاخ سويدان في مع Else هناك سطر واحد لهذا لم يستخدم Begin

كود :

if a = 1 then
begin
  b:= a + 13;
  c:= a * b;
end
else if a = 2 then exit;

فرضا ان Else تحتاج فيها الى اكثر من سطر انظر

كود :

if a = 1 then
begin
  b:= a + 13;
  c:= a * b;
end
else
Begin
A=34;
B=66;
end;

فرضا ان الشرط الاول تحتاج فيه الى سطر واحد ولكن Else تحتاج الى اكثر من سطر

كود :

if a = 1 then
  b:= a + 13
else
Begin
A=34;
B=66;
end;

لاحظ لا يمكنك استخدام ; بحال كان الشرط سطر واحد .

الامر بسيط بالممارسة تستطيع فهم العمل بها