uses crt;
var a,b,c:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  write((a+b+c)div 3);
 readln;
end.

bạn ơi mình biết nè

có thể bạn khai báo array thì có thể chứa 2 số thực á

ko có cái biến nào đâu bạn ơi

uses crt;
var n,x,mu,i,j:longint;s:int64;
begin
 clrscr;
  write('n=');readln(n);
  write('x=');readln(x);
  for i:=2 to n do
        begin
         for j:=1 to i do mu:=x*i;
         s:=s+mu;
         mu:=0;
        end;
  write(s);
 readln;
end.

uses crt;
var a,b,cv,s:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  cv:=(a+b)*2;
  s:=a*b;
  writeln('chu vi cua hinh chu nhat do la:',cv);
  write('dien tich cua hinh chu nhat do la:',s);
 readln;
end.

uses crt;
var a,b:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  if(b>a)then writeln(a*b) else writeln(a+b);
 readln;
end.

program hoc24;
uses crt;
var s:string;i:longint;
procedure nhap(var s:string);
        begin
         write('nhap xau:');readln(s);
        end;
procedure ch(var s:string);
        begin
         for i:=1 to length(s) do s[i]:=upcase(s[i])
        end;
begin
 clrscr;
  nhap(s);
  ch(s);
  writeln(s);
 readln;
end.

bạn chưa sử dụng chương trình con

bản nói quá chuẩn vỗ tay