Viết thuật toán và chương trình tính diện tích và chu vi của hình tròn biết bán kính R và Pi=3.14 ( R nhập từ bàn phím

Thuật toán:

B1: Nhập bán kính R.

B2: cv←R*2*Pi; dt←R*R*Pi;

B3: Xuất cv, dt.

Chương trình:

uses crt;
var R:longint; cv,dt:real;
const pi=3.14;
begin 
clrscr;
   write('Nhap ban kinh R: ');readln(r);
   cv:=2*r*pi;
   dt:=r*r*pi;
   writeln('Chu vi: ',cv:0:3);
   writeln('Dien tich: ',dt:0:3);
readln
end.

thuật toán:

B1: nhập r;

B2: cv<--r*2*pi; dt<--r*r*3.14;

B3: xuất cv, dt;

chương trình:

program bai_giai;

uses crt;

var r:longint;cv,dt:real;const pi=3.14;

begin

clrscr;

write('nhap r:');readln(r);

cv:=r*2*pi;

dt:=r*r*pi;

writeln('chu vi:=',cv);

writeln('dien tich:=',dt);

readln;

end.