Đơn giản bạn sẽ dùng một biến trung gian c nha bạn để chúng ta có thể hoán đổi 2 giá trị, tức nếu không có trung gian thì khi gán trực tiếp giá trị sẽ bị mất

program hoandoi_ab;

var a,b,c:integer;

begin

readln(a,b);

writeln(a, ' ',b);

c:=a;

a:=b;

b:=c;

writeln(a, ' ',b);

readln

end.

có phải pascal k nhỉ

Viết dễ nha bạn

program tinhdienticha;

uses crt;

var a,b,s1,s2,s:real;

begin

write('Nhap vao so a: '); readln(a);

write('Nhap vao so b: '); readln(b);

s1:=2*a*b;

s2:=(3.14*a*a)/2;

s:=s1+s2;

writeln('Dien tich tong la: ', s:10:6);

readln end.

đề cụ thể đi bạn đề không rõ lắm

Var

i,d,n :integer;

a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>0 then d:=d+1;

write('mang A co :',d,'so nguyen duong');

readln

end.

Program Bui_Trung_Hau; (Thay đổi tên tùy ý thích nhé!!!)
uses crt;
Var a, b, p, s integer;
Begin;
Write ('Nhap chieu dai CD'); Readln (a);
Write ('Nhap chieu rong CR'); Readln (b);
p:= (a+b)*2
S:= a*b
Writeln ('Chu vi hinh chu nhat:' ,p);
Writeln ('Dien tich hinh chu nhat:' ,S);
Readln;
End.
P/s: Theo mình thì là như vậy nhé!!! Có j sai sót thì thoai vại!!!~

Program HCN;

uses crt;

var a,b,CV,S:real;

begin

clrscr;

writeln('nhap chieu dai:');readln(a);

writeln('nhap chieu rong:');readln(b);

CV:=(a+b)*2;

S:=a*b;

writeln('chu vi hinh chu nhat la',CV);

writeln('dien tich hinh chu nhat la',S);

readln;

end.

var sn:integer;

begin

write('nhap nam sinh:');readln(sn);

write(2018-sn,'tuoi');

readln;end.