Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
во вложении..............................
Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);
1) текст, число, график, бумага
2) клавиатура, джойстик, сканер, принтер
3) монитор, плоттер, принтер, мышь
4) винчестер, дискета, компакт диск, процессор
5) перфолента, дискета, перфокарта, монитор
6) телефон, модем, телефакс, память
7) слух, вкус, обоняние, мозг