Циклы, вычисления по формулам.

program C_post;
 uses crt;
  const
   a=0.0288;
   b=0.032;
   t=15.7;
   var
 i1,i2,i3,i4,i5,i6,i7,i8: real;
   function P(v:real):real;
  begin
  P:=0.0635*t/(v/b)-a/(v*v);
 end;
 begin
  clrscr;
          writeln('BBedite i1 ');
   read(i1);
          writeln('BBedite i2 ');
   read(i2);
         writeln('BBedite i3 ');
   read(i3);
        writeln('BBedite i4 ');
   read(i4);
       writeln('BBedite i5 ');
   read(i5);
      writeln('BBedite i6 ');
   read(i6);
     writeln('BBedite i7 ');
   read(i7);
    writeln('BBedite i8 ');
   read(i8);
 
writeln('P= ',P(i1):0:3);
writeln('P= ',P(i2):0:3);
writeln('P= ',P(i3):0:3);
writeln('P= ',P(i4):0:3);
writeln('P= ',P(i5):0:3);
writeln('P= ',P(i6):0:3);
writeln('P= ',P(i7):0:3);
writeln('P= ',P(i8):0:3);
 readkey;
     readln;
    end.

program BBetvlenie;
uses crt;
const
tz=800;
ttv=327;
 var v,vi,i,v1,v2,v3,v4,v5,i1,i2,i3,i4,i5:real;
function Tsred (v,vi:real):real;
begin
 v:=-ln(ttv/tz)/0.021;
if vi<v then Tsred:=tz*exp(-0.021*vi)
 else if vi>v then Tsred:=ttv*exp(-0.015*(vi-v));
  end;
 begin
 clrscr;
   write('Bbedite i1 ');
read(i1);
   write('Bbedite i2 ');
read(i2);
   write('Bbedite i3 ');
read(i3);
   write('Bbedite i4 ');
read(i4);
   write('Bbedite i5 ');
read(i5);
 
 writeln('Tcped=', Tsred(v,i1):5:1);
 writeln('Tcped=', Tsred(v,i2):5:1);
 writeln('Tcped=', Tsred(v,i3):5:1);
 writeln('Tcped=', Tsred(v,i4):5:1);
 writeln('Tcped=', Tsred(v,i5):5:1);
  read;
 
writeln;
 readkey;
 readln;
 end.

Program sqr;
uses crt;
 
type mas1=array [1..10] of integer;
type mas2=array [1..10] of integer;
var
    p:^mas1;
    g:^mas2;
i,j,n,n1:integer;
sum1,sum2:real;
  ns,cs:real;
begin
clrscr;
  writeln ('Kol-Bo elementoB massiva P');
  readln(n);
for i:=1 to n do begin
 write ('BBedite ',i,'element ');
    readln(p^[i]);
end;
 
 writeln('polychena Ccisla ');
for i:=1 to n do write (p^[i]:3);
  writeln;
sum1:=0;
  for i:=1 to n do
 sum1:=sum1+(p^[i]*(p^[i]));
 writeln('Kvadrat elementov Massiva P=',sum1:6:1);
 readln;
 
 begin
 writeln ('Kol-Bo elementoB Massiva G');
  readln(n1);
for i:=1 to n1 do begin
 write ('BBedite ',i,'element ');
    readln(g^[i]);
end;
 
 writeln('polychena Ccisla ');
for i:=1 to n1 do write (g^[i]:3);
  writeln;
sum2:=0;
  for i:=1 to n1 do
 sum2:=sum2+(g^[i]*(g^[i]));
 writeln('Kvadrat elementov Massiva G=',sum2:6:1);
 readln;
 end;
 end.

uses crt;
type mas=array[1..100] of integer;
procedure Vvod(var v:mas;var x:byte; c:char);
var i:byte;
begin
writeln('Массив ',c);
write('Размер массива=');
readln(x);
for i:=1 to x do
 begin
  v[i]:=random(9)+1;
  write(v[i],' ');
 end;
writeln;
writeln;
end;
function Summ(v:mas;x:byte):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to x do
s:=s+sqr(v[i]);
Summ:=s;
end;
 
var p,q:mas;
    n,m:byte;
begin
clrscr;
randomize;
Vvod(p,n,'P');
writeln('Сумма квадратов=',Summ(p,n));
writeln;
Vvod(q,m,'Q');
writeln('Сумма квадратов=',Summ(q,m));
readln
end.

program C_post;
 uses crt;
  const
   a=0.0288;
   b=0.032;
   t=15.7;
   var
 v: real;i:integer;
   function P(v:real):real;
  begin
  P:=0.0635*t/(v/b)-a/(v*v);
 end;
 begin
  clrscr;
  i:=1;
  repeat
   write('Bedite i',i:1,'=');
   readln(v);
   writeln('P= ',P(v):0:3);
   i:=i+1;
until i>8;
 readkey;
    end.

i:=1;
  repeat
   write('Bedite i',i:1,'=');

writeln('введите v',i)