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

[mOBSCENE]

Абсолютно нищо не съм вдянала..а, нямам и никакво време сега..г-жата ми даде 4 `задачи`.

1.Да се определи броя на цифрите на числото N
2.Да се намери миним. или макс. сред 4 въведени числа
3.Да се състави програма, която разменя стойностите на 2 променливи
4.Да се състави програма, която определя сумата от въведените числа

Не разбирам от програмата Pascal..не там е силата ми..много ще съм ви благодарна, ако ми помогнете ;s

[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.