var t1,t2,t3,max:integer;
begin
writeln('introduceti temperatura 1');read (t1);
writeln('introduceti temperatura 2');read (t2);
writeln('introduceti temperatura 3');read (t3);
max:=t1;
if max < t2 then max:=t2;
if max < t3 then max:=t3;
writeln (' temperatura maximala ',max);
if t1>20 then writeln('cald');
if t2>20 then writeln('cald');
if t3>20 then writeln('cald');
end.

var a:integer;
begin
writeln (' introduceti un numar de la 0 pina la 9');read (a);
case a of
0:writeln('zero');
1:writeln('unu');
2:writeln('doi');
3:writeln('trei');
4:writeln('patru');
5:writeln('cinci');
6:writeln('sase');
7:writeln('sapte');
8:writeln('opt');
9:writeln('noua');
end;
end.

var n,i:integer;
begin
writeln ('introduceti numarul N');read (n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
end.

var monitor,mouse,tastatura,sisbl,imprimanta:real;n:integer;
begin
writeln ('introduceti pretul la monitor');read (monitor);
writeln ('introduceti pretul la mouse');read (mouse);
writeln ('introduceti pretul la tastatura');read (tastatura);
writeln ('introduceti pretul la bloc de sistem');read (sisbl);
writeln ('introduceti pretul la imprimanta');read (imprimanta);
writeln ('introduceti numarul de computere');read (n);
writeln (' citre plata ',(monitor+mouse+tastatura+sisbl+imprimanta)*n);
end.

var a:array [1..256] of string;
z:array [0..256] of string;
b,c,d:string; y,i,k,l,m,n,p: integer;
begin
writeln ('vvedite tekst ');read (b); k:=length (b);
writeln ('vvedite iskomye simvoly '); read (c);l:=1;
for i:=1 to k do
begin
if copy (b,i,1)=' ' then
begin
d:=d+copy(b,i,1);a[l]:=d;l:=l+1; d:='';
end
else d:=d+copy (b,i,1);
end;
p:=1;a[l]:=d;k:=1;
for i:=1 to l do
begin
for m:=1 to length (a[p]) do
begin
for n:=1 to length (c) do
begin
if copy (c,n,2)=copy (a[p],m,2) then
begin
z[k]:=a[p];k:=k+1;
end;
end;
end;
p:=p+1;
end;
for i:=1 to k do
begin
if z[i]<>'' then writeln ('vstrechaetsia v slove ',z[i]);
if z[i]=z[i+1] then
begin
for m:=i to k+1 do
z[m]:=z[m+1];k:=k-1;
end;
end;
end.

var a:array [1..4] of string; i: integer;
begin
for i:=1 to 4 do
begin
writeln ('vvedite ',i,'e slovo ');read (a[i]);
end;
for i:=1 to 4 do
begin
  if length (a[i]) > 6 then writeln (a[i]);
end;
end.

var s,per,ff:real;a:array[1..1000,1..1000]of real;
b,x,i,k,m,n,y:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;if b=2 then a[i,x]:=a[i,x]*0.01;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
ff:=a[1,i];
k:=i;
for x:=i+1 to m do
  if a[1,x] < ff then
begin
ff:=a[1,x];
k:=x;
end;
for y:=1 to m do
begin
per:=a[y,i];
a[y,i]:=a[y,k];
a[y,k]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var s,per,min:real;a:array[1..1000,1..1000]of real;
b,x,i,k,m,n,y:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;if random (2)=1 then a[i,x]:=a[i,x]*0.01;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
min:=a[i,1];
k:=i;
for x:=i+1 to m do
  if a[x,1] < min then
begin
min:=a[x,1];
k:=x;
end;
for y:=1 to m do
begin
per:=a[i,y];
a[i,y]:=a[k,y];
a[k,y]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var s,per,max:real;a:array[1..1000,1..1000]of real;
b,x,i,k,m,n,y:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;if random (2)=1 then a[i,x]:=a[i,x]*0.01;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
max:=a[i,2];
k:=i;
for x:=i+1 to m do
  if a[x,2] > max then
begin
max:=a[x,2];
k:=x;
end;
for y:=1 to m do
begin
per:=a[i,y];
a[i,y]:=a[k,y];
a[k,y]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var b,n,i,s,r,k,m,x,y,z:integer;a:array[1..1000,1..1000]of integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for x:=1 to n do
begin
for i:=1 to m do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;
write (' ',a[i,x]);
end;writeln;
end;
s:=a[1,1];r:=a[1,1]; k:=1;y:=1;
for x:=1 to n do
begin
for i:=1 to m do
begin
  if a[i,x] < s then begin s:=a[i,x];k:=i;end;
  if a[i,x] > r then begin r:=a[i,x];y:=i;end;
end;
end;
writeln (' st min ',k,' st max ',y);
for x:=1 to n do
begin
z:=a[k,x]; a[k,x]:=a[y,x]; a[y,x]:=z;
end;

for x:=1 to n do
begin
for i:=1 to m do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var b,n,i,s,r,k,m,x,y,z:integer;a:array[1..1000,1..1000]of integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for x:=1 to n do
begin
for i:=1 to m do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;
write (' ',a[i,x]);
end;writeln;
end;
s:=a[1,1];r:=a[1,1]; k:=1;y:=1;
for x:=1 to n do
begin
for i:=1 to m do
begin
  if a[i,x] r then begin r:=a[i,x];y:=x;end;
end;
end;
writeln (' linia min ',k,' linia max ',y);
for i:=1 to n do
begin
z:=a[i,k]; a[i,k]:=a[i,y]; a[i,y]:=z;
end;
writeln ('vtoraia tablitsa ');
for x:=1 to n do
begin
for i:=1 to m do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var a:array[1..1000,1..1000]of integer;
b,x,i,k,m,n,y,s,per,min:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
min:=a[i,n];
k:=i;
for x:=i+1 to m do
  if a[x,n] > min then
begin
min:=a[x,n];
k:=x;
end;
for y:=1 to m do
begin
per:=a[i,y];
a[i,y]:=a[k,y];
a[k,y]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var a:array[1..1000,1..1000]of integer;
b,x,i,k,m,n,y,s,per,min:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(3);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
min:=a[i,1];
k:=i;
for x:=i+1 to m do
if a[x,1] < min then
begin
min:=a[x,1];
k:=x;
end;
for y:=1 to m do
begin
per:=a[i,y];
a[i,y]:=a[k,y];
a[k,y]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var s,per,ff:real;a:array[1..1000,1..1000]of real;
b,x,i,k,m,n,y:integer;
begin
randomize;
read (m,n);
writeln ('pervaia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
a[i,x]:=random (1000);b:=random(4);
if b=1 then a[i,x]:=(a[i,x])*-1;if b=0 then a[i,x]:=0;if b=2 then a[i,x]:=a[i,x]*0.01;
write (' ',a[i,x]);
end;
writeln;
end;
for i:=1 to m-1 do
begin
ff:=a[n,i];
k:=i;
for x:=i+1 to m do
   

ЧАСТЬ вторая


if a[n,x] < ff then
begin
ff:=a[n,x];
k:=x;
end;
for y:=1 to m do
begin
per:=a[y,i];
a[y,i]:=a[y,k];
a[y,k]:=per;
end;
end;

writeln ('vtoraia tablitsa');
for i:=1 to m do
begin
for x:=1 to n do
begin
write (' ',a[i,x]);
end;
writeln;
end;
end.

var n,i,j,k,b:integer;a:array[1..1000]of real; s:real;
begin
randomize;
read (n);
for i:=1 to n do
begin
a[i]:=random (1000); b:=random (3); if b=1 then a[i]:=(a[i])*-1; if b=0 then a[i]:=0;if b=2 then a[i]:=a[i]/100;
end; s:=a[1];
for i:=1 to n do
begin
s:=a[i];
k:=i;
for j:=i+1 to n do
if a[j]>0 then begin s:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=s;
end;
for i:=1 to n do
write (a[i],' ');
end.

var
a: 0..366;
d: 1..31;
num_m : 1..12;
i,god,feb : integer;
begin
WriteLn('Vvedite god, deni, nomer mesaca : ');
ReadLn(god,d, num_m);
a := 1;
if god mod 4=0 then feb:=29 else feb:=28;
for i:=1 to num_m-1 do
case i of
1, 3, 5, 7, 8, 10, 12 :
a := a + 31;
4, 6, 9, 11 :
a := a + 30;
2 : a := a + feb;
end;
a := a + d;
WriteLn('poriadkovyi nomer sleduschego dnia ',a:1);
end.

var a:longint;
c,res:string;
d:0..1;
begin
c:='01';
write('introduceti numar intreg pozitiv ');
readln(a);
res:='';
while (a<>0) do
begin
d:=a mod 2;
res:=c[d+1]+res;
a:=a div 2;
end;
writeln('in sistemul binar :');
write(res);
end.

var v1,v2,s,t,dist1,dist2,dist3,dist4:real;
begin
write ('introduceti viteza v1 ');
read (v1);
writeln ('introduceti viteza v2 ');
read (v2);
writeln ('introduceti distanta s ');
read (s);
writeln ('introduceti timpul t ');
read (t);
dist1:=v1*t+s-v2*t;
dist2:=v2*t+s-v1*t;
dist3:=v1*t+s-v2*t;dist4:=v2*t-v1*t+s;
if v1>0 then if v2<0 then write ('distanta ',dist1);
if v2>0 then if v1<0 then write ('distanta ',dist2);
if v1>0 then if v2>0 then if v1>=v2 then write ('distanta ',dist3) else write('distanta ',dist4);
end.

var k,x,a,b:real;n:integer;
begin
writeln ('introduceti numarul de automobile produseintr-un cvartal ');
read (n);
writeln ('introduceti k% fabricate in prima luna ');
read (k);
a:=n/100*k;
writeln ('introduceti x% fabricate intr-a doua luna');
read (x);
b:=n/100*x;
if a+b>n then writeln ('ati introdus datelegresite')
else writeln ('prima luna s-a produs ',a,' a doua luna s-a produs',b,' a treia luna s-a produs ',n-a-b);
end.

первый вариант
var n,i,s:integer;a:array[1..1000000]of integer;
begin
randomize;
read (n);
for i:=1 to n do
a[i]:=random (1000000);
s:=a[1];
for i:=1 to n do
if a[i]>s then s:=a[i];
a[1]:=s;
writeln ('elementul maximal este ',a[1]);
end.

во втором варианте меняем знак в строке как указано

if a[i]<s then s:=a[i];

остальное то же самое.

var n,j,k:integer;
begin
n:=1;
while n<>0 do
begin
write ('Vvodite chisla ');
read (n); k:=0;
for j:=1 to n-1 do
if n mod j=0 then
begin
k:=k+j;
end;
if n=0 then halt;
if k=n then writeln('превосходное число ',n,' ');
end;
end.

var n,i,s,j,k,b:integer;a:array[1..1000]of integer;
begin
randomize;
read (n);
for i:=1 to n do
begin
a[i]:=random (1000); b:=random (3); if b=1 then a[i]:=(a[i])*-1; if b=0 then a[i]:=0;
end; s:=a[1];
for i:=1 to n do
begin
s:=a[i];
k:=i;
for j:=i+1 to n do
if a[j]>s then begin s:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=s;
end;
for i:=1 to n do
write (a[i],' ');
end.