Сформулируйте условие программы program inr1;

type art=record

nume:string;

nr_loc:longint;

end;

var a:array[1..20] of art;

n,i:integer;

begin

write('n=');readln(n);

for i:=1 to n do begin

write('имя',i,'=');readln(a[i].имя);

write('nr_loc=');readln(a[i].nr_loc)

end;

writeln(Все города с населением более 100000 человек':');

for i:=1 to n do if a[i].номер_место>=100000 then writeln(a[i].имя);

readln;

end.

Var       s: string;       a, b: integer; begin       readln(s);       if s[1] = 'x' then begin               a : = strtoint(s[3]);               b : = strtoint(s[5]);               if s[2] = '-' then a : = -a;               writeln(b - a);       end       else if s[3] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[5]);               if s[2] = '-' then begin                       a : = -a;                       b : = -b;               end;               writeln(b - a);       end       else if s[5] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[3]);               if s[2] = '-' then                       b : = -b;               writeln(a + b);       end end. учтите что никакой защиты от дурака или неверного ввода