Var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Я плохой художник)
вместо хищных зверей можно добавить травоядных зверей
Program pr;
var norma,total:real;day:integer;
begin
norma:=10;
day:=0;
repeat
day:=day+1;
writeln('День: ',day);
writeln('Норма: ',norma:0:1,' км');
writeln();
total:=total+norma;
norma:=norma*1.1;
until day=7;
writeln();
writeln('Всего: ',total:0:1);
end.
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
1. 16*32*25*2=25600 байт/1024=25 Кбайт
2.16*32*20*2=<span><span>20480 байт=20 Кбайт
3.32*32*30*1=</span></span><span><span>30720 байт=30 Кбайт</span></span>