[bormotan]

какого фига это чудо не работает ?????



procedure umnozh;
var a,b,c,c1:integer;
str:string;
ok:command;
begin
setcolor(255,255,255);
fillrect(0,0,getwidth,getheight);
setcolor(0,0,0);
drawtext('Принцип: даю два числа',2,2);
drawtext('от 0 до 100',2,12);
drawtext('Пишешь их произведение',2,22);
drawtext('Для выхода пишешь',2,32);
drawtext('любое простое число',2,42);
a:=random(101);
b:=random(101);
drawtext(integertostring(a)+'*'+integertostring(b) ,2,52);
repaint;
delay(2000);
showform;
ok:=createCommand('Проверить',CM_OK,1);
c1:=formAddTextField('Введите число','',3,TF_NUMERIC);
addCommand(ok);
c:=StringToInteger(formGetText(c1));
clearForm;
showcanvas;
if (a*b=c) then drawtext('Верно',2,62)
else
drawtext('Не верно',2,62);}
repaint;
end;