Составить программу которая выводит на экран название не менее 3 городов

Это не так

уточни

сделал, как ты написал

Program abs;var a,b,c,d:char;begind:='!';write('Введите 3 символа');read(a,b,c);writeln(a+b+c+d);End.

вот по такой программе