[Testing] Pascal minify |Output|

{
I know this is anoying but i don't care XD
Just a shitty stuff i do when i got bored from Lua
I will put the download link on a new paste, when i feel happy
}
uses crt;var n,tam:integer;i,j:longint;t,c,s:array[1..1000]of integer;begin clrscr;read(n);for i:=1 to n do read(t[i]);writeln();for i:=1 to n do read(c[i]);for i:=1 to n do s[i]:=c[i]+t[i];For i:=1 To N-1 Do For j:=i+1 To N Do If s[i]>s[j] Then Begin
Tam:=s[i]; s[i]:=s[j]; s[j]:=Tam;End;writeln('res: ',s[1]);readln;readln;end.