/* p48

Язык Turbo C 2.0
Текстовый режим
Одиночные строки и группы строк */
/* 1 */
read (список ввода);
read (a, b, c, d);
uses crt;
textmode (номер режима);
textmode (1);
textmode (co40);
gotoxy (x, y);
window (x1, y1, x2, y2);
textbackground (color);
textcolor (color);
repeat until keypressed;
textcolor (RED | BLINK);
textattr ((BLACK << 4) + RED + BLINK);
textattr (0x84);
/* 2 */
var t: real;
j: integer;
k: char;
begin
read (t, j, k);