Program n1;
var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
writeln('Ответ [',a*(b/3.14)+(c*3),']');
end.   

Program n2;
var i,p,n:integer;
begin
writeln('Введите n');
read(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln('Произведение чисел от 1 до',n,' равно [',p,']');
end.

Program n3;
var F,N:real;
begin
N:=random(151);
writeln('Случайное число [',N,']');
if N<50 then F:=2*3.14*N;
if (N<70)and(N>50) then F:=sqr(N);
if N>70 then F:=3*N;
writeln('Ответ [',F,']');
end.