прикладная математика

var
x: array [1..500] of longint;
min,b:longint;
i,s,n:integer;
begin
writeln('Vvedite N');
readln(n);
writeln('Vvedite elementi massiva');
for i:=1 to n do
read(x[i]);

min:= 2147483647;

                  for i:=1 to n do
                  if x[i]<min then
                   begin
                   min:=x[i];
                   s:=i;
                   end;

if min<0 then
begin
b:=x[n];
x[n]:=min;
x[s]:=b;
end
      else
begin
b:=x[1];
x[1]:=min;
x[s]:=b;
end;

for i:=1 to n do
write(x[i], ' ');

readln;

end.

var
i,k,m,res:integer;
procedure proc( ii,jj:integer; var  res:integer);
begin
res:=(ii+jj) mod m;
end;

begin
writeln(1 mod 3);
writeln('Vvedite m');
readln(m);
res:=0;

for i:=0 to m-1 do
begin writeln;
for k:=0 to m-1 do begin
proc(i,k,res);
write(res, '    ');
end;
end;
end.

type Tkor = record
r,i,x1,x2:real;
end;

type Tkof = record
a,b,c:real;
end;

var
d:real;
kor: Tkor;
kof: Tkof;

begin
writeln('ax^2+bx+c=0');
writeln('Vvedite a,b,c');
readln(kof.a,kof.b,kof.c);
d:=sqr(kof.b)-4*kof.a*kof.c;
if d<0 then begin
kor.r:= (-kof.b)/(2*kof.a);
kor.i:= (sqrt(abs(d)))/(2*kof.a);
end else begin
kor.x1:= (-kof.b-sqrt(d))/(2*kof.a);
kor.x2:= (-kof.b+sqrt(d))/(2*kof.a);
end;
writeln('Otvet (do 2h znakov posle (,))');
if d<0 then begin
writeln(round(kor.r*100)/100:2:2,' + ',round(kor.i*100)/100:2:2,'i');
writeln(round(kor.r*100)/100:2:2,' - ',round(kor.i*100)/100:2:2,'i');
end else
if d=0 then
writeln(round(kor.x1*100)/100:2:2) else
begin
writeln(round(kor.x1*100)/100:2:2);
writeln(round(kor.x2*100)/100:2:2);
end;
readln;
end.

var
cvet:set of char;
st:string;
i:integer;
begin
i:=1;
cvet:=['j','k','b','s'];
Writeln('Vvedite cvet produkta (joltuy (j), krasniy (k), beliy (b), siniy (s))');
readln(st);
while i<length(st) do begin
if not (st[i] in cvet) then begin
delete(st,i,1);
i:=0;
end;
i:=i+1;
end;
if st[1] in cvet then
case st[1] of
'j':writeln('hleb, pechenie');
'k':writeln('miaso');
'b':writeln('torti, zefir');
's':writeln('slivi');
end
       else
       writeln('Produktov netu');
readln;
end.

{
h - hleb
k - kartoska
b - banan
m - miaso
i - iabloko
p - pomidor
v - kivi
}
var
st:char;
magazin1,magazin2,sladkoe,solonoe,slad,sol: set of char;

begin
magazin1 := ['h','k','b','m','i'];
magazin2 := ['p','i','v','h','b','k'];
sladkoe:= ['b','i','v'];
solonoe:= ['h','m','p','k'];

writeln('Sladkoe? (y/n)');
readln(st);
slad:= (sladkoe*magazin1)*(sladkoe*magazin2);
sol:= (solonoe*magazin1)*(solonoe*magazin2);
if st='y' then  begin
if 'b' in slad then write('banan ');
if 'i' in slad then write('iabloko ');
if 'v' in slad then write('kivi ');
end else if st='n' then begin
if 'k' in sol then write('kartoshka ');
if 'm' in sol then write('miaso ');
if 'p' in sol then write('pomidor ');
if 'h' in sol then write('hleb ');
end;

readln;
end.