1) Cho X nhận các giá trị: 5, 10, 20, 30, 200. Y nhận các giá trị: 3.5 ,6.2, 7.0, 23.3. Z nhân giá trị: 'A', 'B', 'a', '0'. Viết câu lệnh khai báo X, Y, Z sao cho ít tốn bộ nhớ nhất 2) Sửa lỗi cú pháp cho chương trình trên nếu có. Program KTHKT1; Const PI := 3.14; Var r, S: real; Begin Writeln('Nhap r = ') Readln(N); S := PI * sqr(r); Writeln('S = ' S:8:1);

1) - Câu lệnh khai báo x, y sao cho ít tốn bộ nhớ nhất là:
var   x : byte;
        y : real;

2)

Dòng 2: Const PI := 3.14; => Const PI = 3.14;

Dòng 5: Writeln('Nhap r = ') => Writeln('Nhap r = ');

Dòng 8: Writeln('S = ' S:8:1); => Writeln('S = ' 'S:8:1);

Thiếu câu lệnh "End."
Hoàn chỉnh bài làm như sau: 

Program KTHKT1;

Const Pi=3.14;
Var r, S: real;
Begin
     Writeln('Nhap r = '); 
     Readln(r);
     s:=Pi*sqr(r);
     Writeln('S = ',s:8:1);
Readln;
End.

Xin 5* và ctlhn ạ!