1.ниже указаны имена файлов. выбери из них имена текстовых файлов, графических файлов, программ. aaa. bmp, leto. doc, mama. jpg, ura. wav, dog. txt, cat. jpg, boy. exe, music. txt, bоок. mpз, box. exe, game. bmp, vopros. wav, otvet. txt. 2.отдели имена файлов от имен папок, неправильные имена пропускай. lettet. txt, book, name*2, list. doc, 2006 год, windows. jpg, windows, dom. doc. ответ: файлы - lettet. txt, list. doc, windows. jpg, dom. doc; папки - book, 2006 год, windows.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.