Составьте задачу в паскале!!

элементарно

1 program....
uses CRT;
const pi=3,14;
var r:integer;
writeln('vvedite radius okrujnosti');
readln(r);
writeln('dlina okrujnosti = ',2*pi*r:6:2);
writeln('ploshad okrujnosti = ', pi*sqr(r):6:2 );
readkey;
end.

2 program...
uses crt;
var: s:string; code,j,i,proizv:integer;
begin
writeln('vvedite chislo');
readln(s);
proizv:=1;
for i:=1 to length(s) do
begin
val(s[ i ] , j, code);
if code = 0 then proizv:=proizv*j;
end;
writeln('proizvedenie = ',proizv);
readkey;
end.

3 (1 вариант ) program....
uses CRT;
var a,b,c:integer;
begin
writeln('vvedite a, b, c');
read(a,b,c);
if a < b and a < c then a:=a*3;
if b < a and b < c then b:=b*3;
if c < a and c < b then c:=c*3;
writeln(a,b,c);
readkey;
end.

(2 вариант)
program....
uses CRT;
var a,b,c:integer;
begin
writeln('vvedite a, b, c');
read(a,b,c);
if a < b then begin if a < c then a:=a*3 else c:=c*3; end
else с < b then c:=c*3 else b:=b*3;
writeln(a,b,c);
readkey;
end.

первая задача - это вообще круто:
ввести радиус
длина = 2*пи*радиус
площадь = пи * радиус в квадрате
вывести длину и площадь
вторая задача - это тоже круто:
ввести а
вывести a div 100 * (a mod 100 div 10) * (a mod 10)
третья тоже архисложная
ввести а б с
если а меньше б и меньше с, то а домножаем на 3
иначе если б меньше с, то б домножаем на 3
иначе с домножаем на 3
вывести а б с

Которую из них?