Pascal 8 урок

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

var a, b, c, d, i : string;
begin
   a := 'privet';
   writeln(a);
   readln();
end.

Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

var a, b, c, d, i: string;
begin
   writeln('vvedite stroku a ');
   readln(a);
   writeln('vvedite stroku b ');
   readln(b);
   writeln('vvedite stroku c ');
   readln(c);
   writeln('vvedite stroku d ');
   readln(d);
   writeln('vvedite stroku i ');
   readln(i);
   a := a + b + c + d + i;
   writeln(a);
   readln();
end. 

Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом:
""первая строка + произвольный литерал + вторая строка + третья строка""
Результат конкатенации выведите на экран.

var a, b, c: string;
begin
   writeln('vvedite stroku a ');
   readln(a);
   writeln('vvedite stroku b ');
   readln(b);
   writeln('vvedite stroku c ');
   readln(c);
   a := a + ' stop ' + b + c;
   writeln(a);
   readln();
end.

Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

var a, b, c, d: string;
begin
   writeln('vvedite stroku a ');
   readln(a);
   writeln('vvedite stroku b ');
   readln(b);
   writeln('vvedite stroku c ');
   readln(c);
   writeln('vvedite stroku d ');
   readln(d);
   writeln(' c = a <> d ili d = c : ', ((c = a) and ( a<>d)) or (d = c) );
   readln();
end.