var
a, c:integer;
b:= 3.14; <----[вот это lazarus не нравится.]
begin
a:= StrToInt (Edit1.Text);
c:= a*b;
Edit2.Clear;
Edit2.Text:= IntToStr (c);
end;
//otvet.imgsmail.ru/download/235382370_746b15a72eb1f8526a6419a46ab4dffc_800.png
a, c:integer;
b:= 3.14; <----[вот это lazarus не нравится.]
begin
a:= StrToInt (Edit1.Text);
c:= a*b;
Edit2.Clear;
Edit2.Text:= IntToStr (c);
end;
//otvet.imgsmail.ru/download/235382370_746b15a72eb1f8526a6419a46ab4dffc_800.png