Câu 1:

program kaito;
uses crt;
const pi=3.14;
var r, c, s: real;
begin
    clrscr;
    write('Nhap chu vi cua hinh tron: '); readln(c);
    r:=c/(2*pi);
    s:=pi*r*r;
    writeln('Dien tich cua hinh tron la: ',s:6:2);
    readln
end.

Câu 2:

program kaito;
uses crt;
var n, a, b, c: integer;
begin
    clrscr;
    write('Nhap so nguyen co 3 chu so: '); readln(n);
    a:= n div 100; 
    b:= (n mod 100) div 10;
    c:= (n mod 100) mod 10;
    writeln('Chu so hang tram la: ',a);
    writeln('Chu so hang chuc la: ',b); 
    wrteln('Chu so hang don vi la: ',c);
    readln
end.

Bài 1 

program sksk;

uses crt;

var cv, r, s : real;

const pi = 3.14;

begin

clrscr;

write('nhap chu vi hinh tron :');readln(cv);

r := cv/(2 * pi);

s := r * r * pi;

writeln('dien tich hinh tron la :', s:8:2);

readln

end.

Bài 2 :

program sksk;
uses crt;
var a, b, c,  n : integer;
begin
clrscr;
write('nhap so n :');readln(n);
a := n div 100;
b := (n mod 100) div 10;
c := (n mod 10 );

writeln('chu so hang tram la :', a);

writeln('chu so hang chuc la :', b);

writeln('chu so hang don vi la :', c);

readln

end.