Вася бегает со скоростью 14 км/ч, сколько км вася пробежит за х дней, если в день он бегает 5 часов

14*5х-пробежит Вася за х(икс) дней.

Const
   N = 15;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
WriteLn('P = ',P);
End.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
    if A[i] mod 5 = 0 then Write(' ',A[i])
End.

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(31);
    Write(' ',A[i]);
    if i mod 2 <> 0 then S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.

Первая
program PrograPervaya;
var x,y,z,f:integer;

begin
  Writeln('vvedite pervoe chislo:=');
   readln(x);
  Writeln('vvedite vtoroe chislo:=');
   readln(y);
  Writeln('vvedite trete chislo:=');
   readln(z);
  if (x < y) and (x < z) then  begin    Writeln('Pervoe chislo menshee');
  end;
  if (y < x) and (y < z) then
  begin
    Writeln('Vtoroe chislo menshee');
  end;
  if (z < x) and (z < y) then  begin  Writeln('Tretee chislo menshee');
  end;
  Write('End?');
  readln(f);
end. 
 Вторая
program PrograVtoraya;
var k,i:integer;
begin
  writeln('vevedite chislo');
  readln(k);
  if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
  begin    writeln('chislo kratnoe 3, 7,9');
  end
  else
  begin
  writeln('chislo ne kratno 3,7,9');
    end;
  writeln('End?');
  readln(i);

end.

Третья

program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
 end
else
begin
writeln('net, ne verno!');
end;

 writeln('End?');
readln(i);

end.