programa AlgoritmoSequencial0005; 
 
var 
  area, raio : Real; 
inicio 
 
  { Lendo o valor do raio da circunferência. }
  escreva('Informe o raio de uma circunferência.'); 
  leia(raio); 
 
  { Calculando e armazenando a área }
  area := 3.14 * (raio * raio); 
 
  { Mostrando para o usuário a área calculado }
  escreva('A Área da circunferência é: ', (area)); 
 
fim.

{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00005AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  vPI = 3.14;
var
  vRaio, vArea : Real;
begin
  Writeln('Algoritmo 00005 - Algoritmos sequenciais. Show Delphi.');
 
  Write(#10#13 + 'Informe o raio de uma circunfer'#136'ncia: ');
  Readln(vRaio);
 
  vArea := vPI * Sqr(vRaio);
 
  Writeln(#10#13 + 'A '#160'rea da circunfer'#136'ncia '#130': ', (vArea) :0:2);
 
  Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
  Readln;
end.

#include <vcl.h>
#pragma hdrstop
 
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
 
//---------------------------------------------------------------------------
 
#pragma argsused
void _tmain(){
 
	printf("Algoritmo 00005 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme o raio de uma circunferência: ");
	float vRaio;
	scanf("%f", &vRaio);
 
	float vArea;
	vArea = 3.14 * (vRaio * vRaio);
 
	printf("\nA Área da circunferência é: %-7.2f", (vArea));
 
	printf("\n\n");
	system("pause");
}

package exercicio5;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio5 {
 
    public static void main(String[] args) {
        final Double pi = 3.14;
 
        System.out.println("Informe o raio da circunferencia");
        Double raio = Double.parseDouble(JOptionPane.showInputDialog("Informe o raio"));
 
        Double area = pi * (raio*raio);
 
        System.out.println("o raio da circunferencia é: " + area);
    }
 
}