for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
Визитка города2.история города3.дстопримичательности
var
a: <em>integer</em>;
begin
write('Enter your age: ');
readln(a);
writeln('Your age in months is ', a * 12);
<span>end.</span>
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.