أين الخطأ 3

[youryour]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var 
  a: Integer;
begin
  a := StrToInt(InputBox('Enter a value', 'a', '0'));
  ShowMessage(IntToStr(a * a));
end; 


---

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var 
  a: Integer;
begin
  a := StrToInt(InputBox('Enter a value', 'a', '0'));
  if a = 0 then
    ShowMessage('a cannot be zero')
  else
    ShowMessage(IntToStr(a * a));
end; 


عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق

ما رأيك لو وضعت لك هذا الكود

كود :

begin a:=inputbox('a',a=','0'); showmessage(floattostr(sqrt(a))); end;

الا اللبيب من سيعرف أن الخطأ الأخير هو أن a يجب أن يكون موجبا أي يجب اضافة الشروط
هذه التحديات بدأت بها للمبتدئين لأني جديد في المنتدى انتظر أن أصير مبرمجا محترفا أو نحو الاحتراف ولن  يستطيع أحد حل أي من تماريني شكرا على التعقيب