PROGRAM Test (Input,Output);
VAR
   I, J : Integer;
   MidTemp : Real;
   X,Y : Real;
BEGIN
   I := 5;
   J := 10;
   Writeln(I:1,J:1);
   Writeln('I = ',I);
   Writeln(I:4,J:5);
   Writeln('I = ',I:1);
   X := 5.0;
   Y := 10.0;
   Writeln(X,Y);
   Writeln(X:8,Y:6);
   Writeln(X:8:2,' ',Y:6:3);
   MidTemp := 138.0;
   Writeln('Midpoint temperature is ',MidTemp:5:1,' degrees Fahrenheit');
   Readln;
END.