#incluide
void main( )
{
int a,b;//описание переменных
scant("%d%d",b);&//ввод
printf("a=%d b=%d",a,b)//вывод
}
Program chik2;
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Program programma;
Uses crt;
var a,b,min: real;
Begin clrscr;
write('Введите a = ');
readln(a);
write('Введите b = ');
readln(b);
if a>b then
min:=b
else
begin
if a<b then
min:=a;
if a=b then
write('a и b равны');
end;
write('Min = ', min);
readln;
End.