SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var a,b:integer; |
| 1 | + | var cislo1,cislo2:integer; |
| 2 | begin | |
| 3 | - | a:=strtoint(edit1.Text); |
| 3 | + | cislo1:= strtoint(edit1.text); |
| 4 | - | b:=strtoint(edit2.Text); |
| 4 | + | cislo2:= strtoint(edit2.Text); |
| 5 | - | if a>b then label1.Caption:= 'si vyssi o ' + inttostr(a-b) + ' cm'; |
| 5 | + | while cislo1>cislo2 do |
| 6 | - | if a<b then label1.Caption:= 'kamarat je vyssi o ' + inttostr(b-a) + ' cm'; |
| 6 | + | cislo1:= cislo1-cislo2; |
| 7 | - | if a=b then label1.Caption:= 'ste rovnako vysoki'; |
| 7 | + | label1.Caption:= inttostr(cislo1); |
| 8 | - | |
| 8 | + | |
| 9 | end. |
