На рисунке воспроизведена символика олимпийских игр в лондоне 2012 года.с инструмента ms paint это удалось выполнить легко, не переключаясь на другие инструменты. 1)кривая; 2)многоугольник; 3)ромб

2)

 

Var       n, s, i: integer;       s1: real; begin       readln(n); {общий ввод для всех }             if n < 0 then               writeln(' 1. n=', 0)       else writeln(' 1. n=', n + 4);             s : = 0;       for i : = 1 to n do               s : = s + i;       writeln(' 7. 1+2+3+…+n=', s);             write(' 9. последовательность от n до 1 = ');       for i : = n downto 1 do               write(i, ' ');       writeln();             s1 : = 0;       for i : = 1 to n do               s1 : = s1 + i / 10;       writeln(' 12. 0,1+0,2+0,3+..+n/10=', s1);             write(' 13. последовательность квадратов от 1 до n = ');       for i : = 1 to n do               write(i * i, ' ');       writeln();             write(' 14. последовательность первых n нечетных чисел = ');       for i : = 1 to n do               write(2 * i - 1, ' ');       writeln();             if n > 0 then               writeln(' 20. n степень 3 = ', frac(ln(n) / ln(3)) = 0);             s : = 0;       for i : = 1 to n do               if n mod i = 0 then                       s : = s + i;       writeln(' 24. сумма всех натуральных делителей числа n (сключая 1 и n) = ', s); end.

// pascalabc.net 3.0, сборка 1076 const   n=20; { количество дат } type   tdate=record       d: 1..31;       m: 1..12;       y: word   end; var   dates: array[1..n] of tdate;   i: byte;   s,st: string;   begin   randomize;   for i: =1 to n do begin       s: ='';       with dates[i] do begin           d: =random(27)+1;           str(d,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           m: =random(12)+1;           str(m,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           y: =random(51)+1960;           str(y,st);           s: =s+st;           if m in [3..5] then s: =s+' - весенняя';           writeln(s)       end   end end. тестовое решение: 22.12.1979 21.10.1975 25.03.1980 - весенняя 23.04.1967 - весенняя 09.10.1967 16.05.1965 - весенняя 09.08.1996 05.10.2001 10.11.1985 18.08.1970 08.10.1983 01.12.2005 01.01.1994 09.11.1962 14.09.1979 24.03.2008 - весенняя 14.01.2003 22.04.1990 - весенняя 18.08.1969 16.05.2009 - весенняя