Заданы размеры а и в прямоугольного отверстия и размеры x , y , z кирпича . определить , пройдет ли кирпич через отверстие . если « да » , то указать ту сторону , от которой щель останется минимальной . через блок-схему

это латинский алфавит. латиница.

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал