sao lai qua c++ roi o kia =)))

uses crt;

var

a,b,p,s:integer;

begin

readln(a,b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi va dien tich cua hcn lan luot la: ',p,s);

readln

end.

sai:

a,b:interger; -> a,b:integer;

b=10 -> b:=10;

write('Tong cua a va b la:,a+b); -> write('Tong cua a va b la: ',a+b);

uses crt;

var

a,b,c,s:integer;

begin

readln(a,b,c);

s:=(a+b+c)/3;

writeln('TBC 3 so a,b,c la: ',s);

readln

end.