ÒMain Menu æәíå TÐopur Menu êîìïîíåíòòåð³í ïàéäàëàíó

                                                                                

procedure TForm1.N1Click(Sender: TObject);

var c, a, b: real;

begin

 a:=StrToFloat(Num1.Text);

 b:=StrToFloat (Num2.Text);

 c:=A+b;

 Rez.Text:=FloatToStr(c);

end;

procedure TForm1.N2Click(Sender: TObject);

var a,b,c: real;

begin

a:=StrToFloat(Num1.Text);

 b:=StrToFloat (Num2.Text);

 if b<>0 then

 begin

 c:=A/b;

 Rez.Text:=FloatToStr(c);

 end

 else

 begin

 ShowMessage (' Ñàíäû 0-ãå áөëóãå áîëìàéäû!');

 Num2.Text:='';

 end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ShowMessage('Åñåïòåã³ø');

end;

end.