Если я правильно понял, то:
program x;
var x,y,a;
begin
readln(x,y);
if x < y then
begin
a:=x;
x:=y;
y:=a;
end;
writeln(x,y);
end.
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.
Var i,j:integer;
begin
readln(i);
j=(i*i)+(i*3)+1;
writeln(j);
<span>end.</span>
Эмммм.....
prorgam psck;
begin
writeln('Информационное сообщение');
end.
Саму прогу засунунул в файл (тут пробелы иначе убираются), превью в картинке