Составить блок-схему и программу на яп паскаль нахождения гидростатического давления на некоторой заданной глубине водоёма h (p=p0*g*h), константы p0=1 г/см3, g=10 м/c2

надо проверить 4 ключа

я пробовала у меня вышло 15 но возможны и другие варианты

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

var a,p: real;

i,n: integer;

begin

  read(a,n);

  p: =1;

  for i: = 0 to n-1 do

    p: =p*(a+i);

  writeln(p);

end.