SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var a,b:integer; |
| 1 | + | var a,b,c: integer; |
| 2 | begin | |
| 3 | - | a:= strtoint(edit1.Text); |
| 3 | + | a:= strtoint (edit1.Text); |
| 4 | - | b:= strtoint(edit2.Text); |
| 4 | + | b:= strtoint (edit2.Text); |
| 5 | - | repeat |
| 5 | + | c:= strtoint (edit3.Text); |
| 6 | - | if a>b then a:= a-b; |
| 6 | + | if (a>b) and (a>c) then memo1.Lines.add(inttostr(a) + ' the biggest'); |
| 7 | - | if a<b then b:= b-a; |
| 7 | + | if (b>c) and (b>a) then memo1.Lines.add(inttostr(b) + ' the biggest'); |
| 8 | - | until a=b; |
| 8 | + | if (c>a) and (c>b) then memo1.Lines.add(inttostr(c) + ' the biggest'); |
| 9 | - | label1.Caption:= inttostr (a); |
| 9 | + | if (a=b) and (a=c) then memo1.Lines.add(inttostr(a) + ' vsetky su rovnake'); |
| 10 | end; | |
| 11 | ||
| 12 | end. |
