uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

cái đề của bạn nó rất là khặp khiển đấy

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long a,c,tam,x,y;

cin>>x>>y;

a=x;

c=y;

cout<<"a truoc khi doi la:"<<a<<endl;

cout<<"c truoc khi doi la:"<<c<<endl;

tam=a;

a=c;

c=tam;

cout<<"a sau khi doi la:"<<a<<endl;

cout<<"c sau khi doi la:"<<c<<endl;

return 0;

}

#include <bits/stdc++.h>
using namespace std;
long long a,b,bcnn;
int main()
{
    cin>>a>>b;
    if (a>b) swap(a,b);
    bcnn=b;
    while (bcnn%a!=0)
        bcnn=bcnn+b;
    cout<<bcnn;
    return 0;
}

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}