Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL3.DMS/in.adf/DEMOS-OS1.3/SysProg/Rechteck.p

Text File | 1994-07-23 | 253 b | 11 lines

{ MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }

PROGRAM Rechteck(input,output);
VAR x,y: integer;
BEGIN
 write('Breite: '); readln(x);
 write('Höhe:   '); readln(y);
 Page;
 write('*'\e, x-2, 'C*'\e, y-1, 'B'\e'D*'\e, x, 'D*');
END.