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

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

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

одним вызовов write (все три) -- т.е. передав несколько аргументов.
отдельно вызывая writeln для вывод значения каждой переменной

program u7z1;

var a, b, c: char;

begin
  a:= '2';
  b:='3';
  c:='4';
  write(a,b,c);
  readln();
  writeln(a);
  writeln(b);
  writeln(c);
  readln();

end.