Pascal

program Timsolonnhat;
const
PT=2;
type
mang=array[1..PT]of integer;
var
Max,i,n: integer;
VtMax: integer;
A: mang;
begin
writeln(`Nhap mang`);
writeln(`................`);
repeat
write(`Cho biet so phan tu:`);
readln(n);
until n<=PT;
for i:=1 to PT do
begin
write(`Phan tu thu ` ,i,` = `);
readln(a[i]);
end;
writeln;
writeln(`Xu ly`);
writeln(`...............`);
writeln;
Max:=a[1];
VtMax:=1;
for i:=1 to PT do
begin
if(a[i]>Max) then
begin
Max:=a[i];
VtMax:=i;
end;
end;
writeln;
writeln(`In ra man hinh`);
writeln(`.................`);
writeln(`Phan tu lon nhat:`,Max,` , o vi tri thu:`,VtMax);
readln
end.