Перечислите элементы следующих множеств: к - множество различных цифр числа 244003

Вот элементы данного одного многожества: 2 4 0 3

program zadacha;
var
s,temp,max,min:string;
i,mxp,mnp:integer;
begin
writeln('Введите строку...');
readln(s);
s:=s+' ';
temp:='';
max:='';
min:=s;
for i:=1 to length(s) do
begin
if s[i]<>' ' then
temp:=temp+s[i];
if (s[i]=' ') and (temp<>'') then
begin
if Length(temp)<Length(min) then
begin
min:=temp;
mnp:=i-Length(temp)
end;
if Length(temp)>Length(max) then
begin
max:=temp;
mxp:=i-Length(temp)
end;
temp:='';
end;
end;
if max<>'' then
begin
Writeln('Самое длинное: ',max,' Оно начинается с: ',mxp);
Writeln('Самое короткое: ',min,' Оно начинается с: ',mnp)
end
else
WriteLn('В данной строке нет слов!')
end.

Программы на pascal

1)

var

  x, y: real;  

 

begin

  writeln('Введите х');

  readln(x);  //Вводим х

  y:= sin(sqr(x));  

  writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

end.

2)

var

  x, y: real;

 

begin

  writeln('Введите х');

  readln(x);  //Вводим х

  if x >= 0 then y:= cos(x)  //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx

  else y:= 1 - 2 * sin(x);

  writeln('y = ', y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

end.

Если все правильно, отметь решение как лучшее)