Đáp án:

Câu 1:

Program KT HK1; (Cách dòng phải là KT_HK1)

Const PI:= 3.14;

Var r, S: real; 

(Thiếu Begin để bắt đầu chương trình)

Writeln('Nhap r = ')   (Thiếu ";")

Readln(N);   (Ko có khai báo biến N, thay bằng biến r)

S:=PI * sqr(r); 

Writeln('S = ' S:8.1);  ( Sai chỗ S:8.1, phải thay dấu ":" vào và thiếu dấu "," trước S:8:1)

End.

*Sửa lại chương trình:

Program KT_HK1;

Const PI:= 3.14;

Var r, S : real;

Begin

Writeln('Nhap r = ');

Readln(r);

S := PI * sqr(r);

Writeln('S = ', S:8:1);

End.

Câu 2:

Program chanle;

Uses crt;

Var n: integer;

Begin

clrscr;

Write('nhap so n:'); readln(n);

If (a mod 2 = 0) then writeln(n,'la so chan')

else writeln(n,'la so le');

Readln;

End.

#blackwolf4869

Câu 1 : 

- Dòng 1 : tên có khoảng cách

- Thiếu begin để bắt đầu chương trình

- Dòng 2 : sai cú pháp khai báo hằng

- Dòng 4 : thiếu dấu chấm phẩy

- Dòng 5 : sai Readln(N);

- Dòng 7 : sai .1 và thiếu dấu phẩy

- Sửa chương trình :

Program KT_HK1;

Const PI = 3.14;

Var r, S : real;

Begin

Writeln('Nhap r = ');

Readln(r);

S := PI * sqr(r);

Writeln('S = ', S:8:1);

End.

Câu 2 :

uses crt;

var n : integer;

begin

clrscr;

write('nhap so nguyen : ');readln(n);

if n mod 2 = 0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.