Viết chương trình pascal tính S 3 htron khác nhau có sử dụng chương trình con

uses crt;
var   r1,r2,r3 : integer;
procedure tinh(r : integer);
begin
write('Nhap do dai ban kinh :'); readln(r);
writeln('Dien tich hinh tron do la :',r*r*3.14:3:0);
end;
begin clrscr;
tinh(r1); tinh(r2); tinh(r3);
readln
end.

 Bạn tham khảo thêm trước khi làm bài ạ

Chương trình con là một đoạn chương trình thực hiện trọn vẹn hay một chức năng nào đó.             Trong Turbo Pascal, có 2 dạng chương trình con:

 Thủ tục (PROCEDURE): Dùng để thực hiện một hay nhiều nhiệm vụ nào đó.

Hàm (FUNCTION): Trả về một giá trị nào đó (có kiểu vô hướng, kiểu string). Hàm có thể sử dụng trong các biểu thức.

Bài làm

Program hoidap247;

Uses crt;
Var   ra,rb,rc : integer;
Procedure tinh(r : integer);
Begin;
Write('Nhap do dai ban kinh :');

Readln(r);
Writeln('Dien tich hinh tron do la :',r*r*3.14:3:0);
End;
Begin clrscr;
Tinh(ra); tinh(rb); tinh(rc);
Readln
End.