''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Var
a, b: integer;
procedure Max(a, b: integer);
begin
if(a > b) then write(a)
else write(b);
end;
begin
read(a, b);
Max(a, b);
end.
Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
<span>Ответ:В режиме истинного цвета: 6000,
При кодировании с палитрой 256 цветов- 2000,
При кодировании с палитрой 16 цветов- 1000,
В черно-белом варианте 250</span>
Var a,b,c,d,x: Real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
x:=a/(b+c)-d;
writeln(x);
end.