Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var cislo1,cislo2:integer;
- begin
- cislo1:= strtoint(edit1.text);
- cislo2:= strtoint(edit2.Text);
- while cislo1>cislo2 do
- cislo1:= cislo1-cislo2;
- label1.Caption:= inttostr(cislo1);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
