SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var vstup,i,cisla,max:integer; |
| 1 | + | var a,b:integer; |
| 2 | - | riadok:string; |
| 2 | + | |
| 3 | a:=strtoint(edit1.Text); | |
| 4 | - | vstup:= strtoint (inputbox('zadaj','kolko cisel ma vypisat',''));
|
| 4 | + | b:=strtoint(edit2.Text); |
| 5 | - | max:= random(101); |
| 5 | + | if a>b then label1.Caption:= 'si vyssi o ' + inttostr(a-b) + ' cm'; |
| 6 | - | riadok:= '' + inttostr(max); |
| 6 | + | if a<b then label1.Caption:= 'kamarat je vyssi o ' + inttostr(b-a) + ' cm'; |
| 7 | - | for i:= 2 to vstup do |
| 7 | + | if a=b then label1.Caption:= 'ste rovnako vysoki'; |
| 8 | ||
| 9 | - | randomize; |
| 9 | + | |
| 10 | - | cisla:= random(101); |
| 10 | + | |
| 11 | - | riadok:= riadok + ' ' + inttostr(cisla); |
| 11 | + |
