Задача 1 Урок 7

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран

var
    a, b, c: char;
begin
    a := '1';
    b := '2';
    c := '3';
{
одним вызовов write (все три) -- т.е. передав несколько аргументов.
}
    write (a, b, c);
    writeln (); // перенёс строку
{
отдельно вызывая writeln для вывод значения каждой переменной
}
    writeln (a);
    writeln (b);
    writeln (c);
    readln ();
end.