Pertukaran Tempat Zat

program pertukaran_tempat_zat;
uses wincrt;
var
a,b,c,d,e:string;              
air,solar,gas,bensin:integer;
begin
write('isi tabung sebelum ditukar tempat');readln;
a:='air';
b:='solar';
c:='gas';
d:='bensin';
write('tabung A berisi');readln(a);
write('tabung B berisi');readln(b);
write('tabung C berisi');readln(c);
write('tabung D berisi');readln(d);
write('isi tabungsesudah ditukar tempat');readln;
E:=A;
A:=B;
B:=D;
D:=C;
C:=E;
writeln('jadi tabung A berisi',A);
writeln('jadi tabung B berisi',B);
writeln('jadi tabung C berisi',C);
writeln('jadi tabung D berisi',D);
end.