En Kısa Yoldan Değişkenleri Yazdırırken Ters Yazarsın Olur

uses crt;
var
s1,s2:integer;
begin
writeln('1. sayıyı giriniz:');
readln(s1);
writeln('2. sayıyı giriniz:');
readln(s2);
writeln('1.sayı:',s1);
writeln('2.sayı:',s2);
readln;
end.

Yada Üstteki Arkadaşında Örnek Vermiş Olduğu Gibi

uses crt;
var
s1,s2,gec:integer;
begin
writeln('1. sayıyı giriniz:');readln(s1);
writeln('2. sayıyı gir:');readln(s2);
gec:=s2;
s2:=s1;
s1:=gec;
writeln('1.sayı:',s1);
writeln('2.sayı:',s2);
readln;
end.

Arkadaşım 2. Kodu Denedim Çalışıyor