Какие сходства и различия между площадкой для бокса и площадкой для кегельринга​

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var a: array [1..16] of integer;

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

как я понял надо составить блок-схему

задаете числа, и задаете периметр и площадь равный 0

условие что все больше 0

если да то дальше если нет то конец

после этого сразу проверка на ваши больше и меньше 0 и тому прочее

если не выполняется какое-то условие то конец,если все вып. то опять условие 

с^2=a^2+b^2

если да то выполнить действие s=a*b   вывод s   end

если нет то p=a+b+c   вывод p   end