Bài 1

uses crt;
var r: real;
var code: integer;
begin
clrscr;
writeln('1. Tính diện tích hình tròn.');
writeln('2. Tính chu vi hình tròn.');
write('Nhập bán kính (R): ');
readln(r);
write('Nhập lệnh: ');
readln(code);
if code = 1 then writeln('Diện tích hình tròn là: ', r*r*3.14:6:2)
else if code = 2 then writeln('Chu vi hình tròn là: ', 2*3.14*r:6:2)
end.

Bài 2

uses crt, sysutils;
var n: string;
var m: int64;
begin
clrscr;
m := 0;
readln(n);
while (n <> 'y') and (n <> 'Y') do
begin
if StrToInt(n) > m then m := StrToInt(n);
readln(n);
end;
writeln(m);
end.

Bài 3

uses crt;
var n,s,i: int64;
function factorial(n: int64): int64;
var i,p: int64;
begin
p := 1;
for i := 1 to n do p := p * i;
factorial := p;
end;
begin
s := 1;
readln(n);
for i:=2 to n do s := s + factorial(i);
writeln(s);
end.

Bài 4

uses crt,sysutils;
var n: int64;
var i,s: integer;
var ns: string;
begin
s := 0;
readln(n);
ns := IntToStr(n);
writeln(length(ns));
for i:=1 to length(ns) do
    if StrToInt(ns[i]) mod 2 <> 0 then s := s + StrToInt(ns[i]);
writeln(s);
end.

`1.`

uses crt;
var r: real;
    n: integer;
begin
clrscr;
    write('Nhap ban kinh: '); readln(r);
    writeln('1. Dien tich hinh tron');
    writeln('2. Chu vi hinh tron');
    write('Chon 1 phuong an: '); readln(n);
    if n=1 then write('Dien tich hinh tron la: ',r*r*3.14:10:2);
    if n=2 then write('Chu vi hinh tron la: ',r*r*3.14:10:2);
    readln
end.

`2.`

uses crt;
var n: string;
begin
clrscr;
    write('Nhap 1 so: '); readln(n);
    while upcase(n)<>'Y' do begin
        write('Nhap lai 1 so: ');
        readln(n);
    end;
    readln
end.

`3.`

uses crt;
var n,i,s: longint;
begin
clrscr;
    write('Nhap n: '); readln(n);
    s:=1;
    for i:=2 to n do s:=s*i;
    write(n,'!=',s);
    readln
end.

`4.`

uses crt;
var n,s,d: integer;
begin
clrscr;
    write('Nhap 1 so: '); readln(n);
    while n<>0 do begin
        d:=d+1;
        if (n mod 10) mod 2 = 1 then s:=s+(n mod 10);
        n:=n div 10;
    end;
    writeln('n co ',d,' chu so');
    write('Tong cac chu so le cua n la: ',s);
    readln
end.