Ejercicio 1(Inicio)

PROGRAM area_circulos(input,output);
(*Mostrar una tabla indicando radio,perimetro y area de tres círculos*)
CONST
pi=3.14;
VAR
radio1:real;
radio2:real;
radio3:real;
perimetro1:real;
perimetro2:real;
perimetro3:real;
area1:real;
area2:real;
area3:real;
BEGIN
write('Radio primer círculo');
readln(radio1);
write('Radio segundo círculo');
readln(radio2);
write('Radio tercer círculo');
readln(radio3);
perimetro1:=2*pi*radio1;
    perimetro2:=2*pi*radio2;
perimetro3:=2*pi*radio3;
area1:=pi*radio1*radio1;
area2:=pi*radio2*radio2;
area3:=pi*radio3*radio3;
writeln('Radio     Perímetro     Área');
writeln('======     ==========     ======');
writeln(' ',radio1:2:2,' ',perimetro1:2:2,' ',area1:2:2);
writeln(' ',radio2:2:2,' ',perimetro2:2:2,' ',area2:2:2);
writeln(' ',radio3:2:2,' ',perimetro3:2:2,' ',area3:2:2);
END.

Ejemplo de Ejecución

                                                                                                                                                     Siguiente