Помогите пожалуйста написать ** паскале!Введите массив ADR[1..10],элементами которого...

Question

Помогите пожалуйста написать на паскале!Введите массив ADR[1..10],элементами которого являются адреса студентов в формате:город улица дом квартира.Вывести те элементы ,которые содержат город"Краснодар".Ввод и вывод данных оформите разными цветами.

Answer 1

Uses crt;var ADR:array[1..10] of string;
sub:array[1..10] of string;
i,k:integer;
s:string;
begin;
for i:=1 to 10 do
begin;
writeln('Input town of ',i,'student');
readln(s);
ADR[i]:=ADR[i]+s+' ';
writeln('Input street of ',i,'student');
readln(s);
ADR[i]:=ADR[i]+s+' ';
writeln('Input house of ',i,'student');
readln(s);
ADR[i]:=ADR[i]+s+' ';
writeln('Input apartament of ',i,'student');
readln(s);
ADR[i]:=ADR[i]+s;
if pos('Краснодар',ADR[i])<>0 then
begin;
inc(k);
sub[k]:=ADR[i];
end;
end;
TextColor(4);
writeln('Result:');
for i:=1 to k do
writeln(sub[i]);
end.