Программирование циклов с заданным условием продолжения работы.
зделайте

1)
uses crt;
const g=9.82;
var H,t: real;
begin
clrscr;
write ('H=');
readln (H);
t:=sqrt(2*H/g);
writeln ('t=',t:5:2);
end.
2)
uses crt;
var h,a,b,S: real;
begin
clrscr;
write ('h=');
readln (h);
write ('a=');
readln (a);
write ('b=');
readln (b);
S:=1/2*(a+b)*h;
writeln ('S=',s:5:2);
end.
3)
uses crt;
const N=8;
var
i: integer;
ch: array [1..N] of char;
begin
clrscr;
for i:=1 to N do
readln (ch[i]);
writeln ();
for i:=1 to N do
writeln (ch[i]);
end.
4)
uses crt;
var
A,B,R:real;
begin
clrscr;
write ('A=');
readln (A);
write ('B=');
readln (B);
R:=B;
R:=A;
A:=B;
writeln ('A=',A);
writeln ('B=',R);
end.

1) 
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=random(10); 
Write(A[i]:4); 
end;       
Writeln;
 Writeln('Введите число: '); 
Readln(s); 
For i:=1 to n do 
 begin   
If A[i]=s then k:=k+1; 
end; 
Writeln('Число  ',s,', его кол-во в массиве:  ',k,' шт.');
END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
 i,min,mini,max,maxi:integer;
BEGIN
Clrscr; 
For i:=1 to n do 
 begin 
A[i]:=Random(20); 
 Write(A[i]:4);
  end;
  Writeln; 
max:=A[1]; 
min:=A[1]; 
For i:=1 to n do 
 begin 
 if A[i]>max then 
 begin 
 maxi:=i; 
 max:=A[i];   
end; 
  if A[i]<min then
 begin   
mini:=i; 
 min:=A[i]; 
  end; 
end; 
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);   
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
END.