и робот РОБОТОВИЧ не удаляй!​

ответ на задание

Объяснение:

Проведите исследование и узнайте, как работают туристические агентства. Проанализируйте, как можно улучшить

их работу.

Используя эти данные, придумайте концепцию туристического межгалактического агентства.

Будьте внимательны!

Агентство должно быть уникальным и открывать новый

рынок – голубой океан.

Пропишите стратегию развития вашего агентства, проиллюстрируйте вашу стратегию.

Подумайте, что именно вы будете предлагать вашим клиентам и почему они должны прийти именно к вам.

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.