Решение задачи №1

Решение задачи №1 из главы 7

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

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