Составить ! вывести на экран числа от 10 до 20 и их квадраты

Uses crt; var x: integer; begin       for x: =10 to 20 do           writeln(x,' ',sqr(x)); end.

Южные материки к группе южных материков относятся южная америка, африка, австралия, многими общими чертами природы в силу сходства их положения и сопряженной формирования в составе гондваны. особое положение занимает антарктида. этот материк расположен целиком в южном полушарии и является частью распавшейся гондваны. как осколок южного суперконтинента антарктида имеет явные черты сходства с другими гондванскими материками в строении поверхности (в геологическом строении и рельефе подледной поверхности). однако особое положение континента определяет многие уникальные черты его природы. в характеристике компонентов природы южных материков антарктиде выделяется особое место. южные материки омываются всех океанов, кроме северного ледовитого океана. антарктида не имеет сухопутных границ, как и австралия, которая ближе всего связана с евразией через своеобразный мост — острова и мелководные моря и проливы малайского архипелага, которые традиционно относят к материку евразии. африка отделена от евразии узкими гибралтарским проливом и красным морем. на крайнем северо-востоке на суэцком перешейке граница между этими материками проходит по искусственному сооружению — суэцкому каналу. южная америка граничит с северной на панамском перешейке.  что именно? пиши подробнее!

Pascal   var    n,i,k : integer;       function prost (a : integer) : boolean;   //возвращает true если число простое var    i,b : integer;     r : boolean;   begin    r : = true;     i : = 2;     b : = a div 2;     while (i < = b) and (r) do    begin      if a mod i = 0 then      r : = false;     i : = i +1;     end;     result : = r;   end;     function chet (l : integer) : integer;   //определяет кол-во        var    i,s : integer;                         //возможных  произведений                                                    // в  числовой последовательносьти                                                   //заданной длины begin      s : = 0;     for i : = 0 to k do      s : = s +(k - i);       result : = s;       end; begin  readln (n);   k : = 0;         for i : = 2 to n do    if prost(i) then begin      k : = k +1;         //write (i,' '); // вывод простых чисел(если надо, то раскоменьтить)      end;       writeln (); writeln ('кол-во простых чисел на диапазоне = ',k);   writeln ('кол-во произведений ',k,' различных чисел : ',chet(k));       end.   вроде работает, хотя вероятно есть более эффективный алгоритм.единицу не учитывал как простое.блок схему рисовать не буду - геморойной, да и не силен я в этомпросто попытаюсь объяснить алгоритм1) мы находим все простые числа на диапазоне от 1 до n(выполняется функцией (prost), и перебором.2)  исходя из кол-ва найденных простых чисел мы можем найти кол-во их произведений. т.к все числа различны и идут в порядке увеличения.это делается с функции (chet)