Первая задачка.
program primer2;
uses crt;
const n=5;
var x:array [1..n] of real;
y:array [1..n] of real;
i:integer;minx,miny:real;r:real;
begin
clrscr;
for i:=1 to n do
begin
write('vvedite chislo x',i,'-');
readln(x[i]);
write('vvedite chislo y',i,'-');
readln(y[i]);
end;
minx:=abs(x[1]);
miny:=abs(y[1]);
for i:=2 to n do
if (abs(x[i])<minx) and (abs(y[i])<miny) then
begin
minx:=abs(x[i]);
miny:=abs(y[i]);
end;
r:=sqrt(sqr(minx)+sqr(miny));
writeln('r ravno',r);
readkey;
end.
Втарая...
program primer1;
var k,n:integer;
begin
k:=0;
write('vvedite n-');
readln(n);
repeat
n:=n div 10;
k:=k+1;
until n=0;
writeln('k ravno',k);
end.
ну и последняя...
program fff;
var x,a,b:integer;
begin
writeln('vv nomer chisla');
readln(a);
b:=tRunc(a/10)+1;
if (a mod 2)=1 then
begin
x:=b;
end;
if (a mod 2)=0 then
begin
x:=(a div 2)-1;
if x>9 then x:=x-10;
end;
writeln('chislo=',x);
end.