Вам представлен образец программы с условием: F=float(input(“F=”))
If (F>0)
m=F/10
print(m)
Elif (F<0)
print(“Нет решений”)

Данная программа читается следующим образом:
Дана переменная F, которая является рациональным числом.
Если F больше 0 то рассчитать массу по формуле.
Если F меньше нуля, то вывести сообщение Нет решений.

Составьте программу расчета давления твердого тела:
P=F/S. Если F меньше нуля и S меньше нуля Вывести сообщение Нет решений

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.