Вывод данных с клавиатуры на экран

[Shouldercannon]

Введите с клавиатуры следующие значения переменных: 'D' ; 'E' ; 'f' ; '8' ; 1,1 ; 2; 65800; 8,33; -9475,1; 300 и введите значение True. Выведите на экран монитора каждое из этих, значений без формата и по формату (для значений вещественных переменных - по двум различным форматам).
Turbo pascal

[Poma][a]

Эм.. а годы на этом форуме не научили Вас элементарной вежливости? Странно..

var
    ch1, ch2, ch3, ch4 : Char;
    r1, r2, r3 : real;
    n1, n2 : Integer;
    n : LongInt;

begin
       ReadLn (ch1, ch2, ch3, ch4, r1, n1, n, r2, r3, n2);

       WriteLn (ch1); WriteLn (ch2); WriteLn (ch3); WriteLn (ch4);
       WriteLn (ch1 : 2); WriteLn (ch2 : 2); WriteLn (ch3 : 2); WriteLn (ch4 : 2); 
       WriteLn (r1); WriteLn (r1 : 3 : 0); WriteLn (r1 : 3 : 2);
       WriteLn (n1); WriteLn (n1 : 2); WriteLn (n); WrietLn (n : 2);
       WriteLn (r2); WriteLn (r2 : 3 : 0); WriteLn (r2 : 3 : 2);
       WriteLn (r3); WriteLn (r3 : 3 : 0); WriteLn (r3 : 3 : 2);
       WriteLn (n1); WriteLn (n1 : 2)
end.

Не проверял..
Кстати, так же было бы очень хорошо озвучить Ваш компилятор..

[Shouldercannon]

Сообщение от Poma][a

Эм.. а годы на этом форуме не научили Вас элементарной вежливости? Странно..

Как-то не хорошо. Бывает

Сообщение от Poma][a

Кстати, так же было бы очень хорошо озвучить Ваш компилятор..

Стандартный компилятор от DosBox. Если подскажете где посмотреть, то могу сказать.

[Poma][a]

Стандартный компилятор от DosBox.

Значит старичек Turbo.. "надо поклониться в ножки Турбо и прибить его гвоздиком на стенку, а самому использовать FP или еще что-то в том же роде" (с) TinMan

[Shouldercannon]

Во время компиляции произошла ошибка

[Poma][a]

var
    ch1, ch2, ch3, ch4 : Char;
    r1, r2, r3 : real;
    n1, n2 : Integer;
    n : LongInt;

begin
       ReadLn (ch1);
       ReadLn (ch2);
       ReadLn (ch3);
       ReadLn (ch4);
       ReadLn (r1, n1, n, r2, r3, n2);

       WriteLn (ch1); WriteLn (ch2); WriteLn (ch3); WriteLn (ch4);
       WriteLn (ch1 : 10); WriteLn (ch2 : 10); WriteLn (ch3 : 10); WriteLn (ch4 : 10); 
       WriteLn (r1); WriteLn (r1 : 10 : 0); WriteLn (r1 : 10 : 2);
       WriteLn (n1); WriteLn (n1 : 10); WriteLn (n); WriteLn (n : 10);
       WriteLn (r2); WriteLn (r2 : 10 : 0); WriteLn (r2 : 10 : 2);
       WriteLn (r3); WriteLn (r3 : 10 : 0); WriteLn (r3 : 10 : 2);
       WriteLn (n2); WriteLn (n2 : 10)
end.

[Shouldercannon]

Прошу прощения за тупёж, но не могу опробовать сий код. Разве сначало не должно идти WriteLn, а потом ReadLn? Первый раз с консольными приложениями сталкиваюсь.
Я так понимаю, исходя из задания, что всё это: 'D' ; 'E' ; 'f' ; '8' ; 1,1 ; 2; 65800; 8,33; -9475,1; 300 надо через Enter по очереди вводить?

[Poma][a]

Разве сначало не должно идти WriteLn, а потом ReadLn?

Вы можете написать WriteLn ('Введите то-то '); и после этого уже читать

Я так понимаю, исходя из задания, что всё это: 'D' ; 'E' ; 'f' ; '8' ; 1,1 ; 2; 65800; 8,33; -9475,1; 300 надо через Enter по очереди вводить?

Совершенно верно!