program LMtool;
var

s, m, l, h:integer;
cmd : command;
sila, mudrost, lovkost, hitrost : string;
mana, ataka, zashita, torgov, lider, udar: string;

begin

ShowForm;

s:=FormAddTextField('Введите количество силы :', '', 20, TF_NUMERIC);
m:=FormAddTextField('Введите количество мудрости :', '', 20, TF_NUMERIC);
l:=FormAddTextField('Введите количество ловкости :', '', 20, TF_NUMERIC);
h:=FormAddTextField('Введите количество хитрости :', '', 20, TF_NUMERIC);

cmd:=CreateCommand('OK',CM_OK,50);

AddCommand(cmd);

repeat Delay(100) until GetClickedCommand=cmd;

sila:=formgettext(s);
mudrost:=formgettext(m);
lovkost:=formgettext(l);
hitrost:=formgettext(h);



mana:=(sila*1)+(mudrost*2);
ataka:=(sila*2)+(lovkost*2);
zashita:=(sila*1)+(lovkost*1);
torgov:=(mudrost*1)+(lovkost*1);
lider:=hitrost*1;
udar:=(lovkost*2)+(hitrost*2);



ShowCanvas;

DrawText('Мана: '+mana,0,0);
DrawText('Атака: '+ataka,0,30);
DrawText('Защита: '+zashita,0,60);
DrawText('Торговля: '+torgov,0,90);
DrawText('Лидерство: '+lider,0,120);
DrawText('1-й удар: '+udar,0,150);

Repaint;

Delay (10000);

end.