Пример программы. Writeln (' после последнего числа нажмите клавишу "enter" ')

PROGRAM lab4;

USES CRT; { ПОДКЛЮЧЕНИЕ МОДУЛЯ CRT }

CONST

LOG=TRUE;

VAR K,M,N:INTEGER;

X,Y:REAL;

S1,S2,S3:CHAR;

BEGIN

CLRSCR; { ОЧИСТКА ЭКРАНА }

WRITELN (' ВВЕДИТЕ ЦЕЛЫЕ ЧИСЛА K, M, N В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ.');

WRITELN (' ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER" ');

READLN (K, M, N);

WRITELN;

WRITELN (' ':20,'ЦЕЛЫЕ ЧИСЛА');

WRITELN (' ':5,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'K=',K:5,' ':20,'K=',K);

WRITELN (' ':10,'M=',M:5,' ':20,'M=',M);

WRITELN (' ':10,'N=',N:5,' ':20,'N=',N);

WRITELN;

WRITELN (' ВВЕДИТЕ ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА X, Y В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ.');

WRITELN (' ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИЩУ "ENTER" ');

READLN (X,Y);

WRITELN;

WRITELN (' ':20,'ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА');

WRITELN (' ':5,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'X=',X:8:4,' ':15,'X=',X);

WRITELN (' ':10,'Y=',Y:8:4,' ':15,'Y=',Y);

WRITELN;

WRITELN (' ВВЕДИТЕ СИМВОЛЬНЫЕ ДАННЫЕ ДЛЯ ПЕРЕМЕННЫХ S1, S2, S3.');

WRITELN (' ПОСЛЕ КАЖДОГО СИМВОЛА НАЖМИТЕ КЛАВИШУ "ENTER" ');

WRITE (' s1='); READLN(S1);

WRITE (' s2='); READLN(S2);

WRITE (' s3='); READLN(S3);

WRITELN;

WRITELN (' ':20,'СИМВОЛЬНЫЕ ДАННЫЕ');

WRITELN (' ':5,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'S1=',S1:3,' ':20,'S1=',S1);

WRITELN (' ':10,'S2=',S2:3,' ':20,'S2=',S2);

WRITELN (' ':10,'S3=',S3:3,' ':20,'S3=',S3);

WRITELN;

WRITELN (' ':20,'ЛОГИЧЕСКИЕ ДАННЫЕ');

WRITELN (' ':5,'ВЫВОД В ФОРМАТЕ',' ':10,'ВЫВОД БЕЗ ФОРМАТА');

WRITELN (' ':10,'LOG=',LOG:7,' ':15,'LOG=',LOG);

WRITELN; WRITELN; WRITELN;

WRITELN (' ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ НАЖМИТЕ КЛАВИШУ "ENTER" ');

READLN; {ЗАДЕРЖКА ЭКРАНА ВЫПОЛНЕНИЯ ПРОГРАММЫ ДО НАЖАТИЯ КЛАВИШИ "ENTER"}

END.

Результат выполнения программы приведен на рис. 1.1.

Рис. 1.1