Câu 3:

a) var cannang:real;

b) write('30-20=',30-20);

c) write('hay han che tiep xuc de phong lay lan dinh covid 19');

d) cannang[10]:=50;

Câu 4:

a)

uses crt;
begin
      clrscr;
      write('Dich covid 19 dang dien bien phuc tap');
      readln;
end.

b)

uses crt;
var s,s1,s2,s3,s4,s5,s6,s7,s8,s9:integer;
begin
      clrscr;
      write('Dien tich manh dat thu 1: '); readln(s);
      write('Dien tich manh dat thu 2: '); readln(s1);
      write('Dien tich manh dat thu 3: '); readln(s2);
      write('Dien tich manh dat thu 4: '); readln(s3);
      write('Dien tich manh dat thu 5: '); readln(s4);
      write('Dien tich manh dat thu 6: '); readln(s5);
      write('Dien tich manh dat thu 7: '); readln(s6);
      write('Dien tich manh dat thu 8: '); readln(s7);
      write('Dien tich manh dat thu 9: '); readln(s8);
      write('Dien tich manh dat thu 10: '); readln(s9);
      readln;
end.

câu 3:

a)  var cannang: real;

b)  Write ('30-20=',30-20);

c)  Writeln ('han che tiep xuc de phong lay lan dich covid 19');

d)  cannang[10]:=50;

câu 4:

a)

uses crt;

begin

clrscr;

write ('Dich covid 19 dang dien bien phuc tap');

readln;

end.

b)

uses crt;

var a: array[1..10] of real;

i: byte;

begin

clrscr;

for i:=1 to 10 do

begin

write ('nhap dien tich manh dat thu ',i,': ');   readln (a[i]);

end;

readln;

end.

for