Компютри?Помощ?

[Chacho]

1 задача

program HelloWorld;
var
  n,count: integer;
begin
  writeln('n=');
  readln(n);

  count:=0;

  while not(n=0) do
  begin
    n:=n div 10;
    count:=count+1;
  end;
 
  writeln('Broiat na cifrite e:', count);
  readln;
end.

2задача

program HelloWorld;
var
  a,b,c,d,min,max: integer;
begin
  write('a=');
  readln(a);
  max:=a; min:=a;

  write('b=');
  readln(b);

  write('c=');
  readln(c);

  write('d=');
  readln(d);

  if max<b then
  max:=b;
  if max<c then
  max:=c;
  if max<d then
  max:=d;

  if min>b then
  min:=b;
  if min>c then
  min:=c;
  if min>d then
  min:=d;
 
  writeln('max:', max);
  writeln('min:', min);
  readln;
end.

3задача

program asdf;

var
a, b, c: integer;

begin
write('a=');
readln(a);
write('b=');
readln(b);

c:=a;
a:=b;
b:=c;

writeln('a=', a);
writeln('b=', b);
readln;

end.

4задача

program asdf;

var
a, sum: integer;
c: char;

begin
c:='y'; sum:=0;
while (c='y') or (c='Y') do
begin
write('a=');
readln(a);
sum:=sum+a;
write('Iskate li da vuvedete oshte chisla (Y/N)? ');
readln(c);
end;

writeln('sum=', sum);
readln;
end.