Усилители слуха,очки,протезы,как дополнительные.Из основных-Уши,нос,кожа,язык,глаза.Не особо понятно в каком контексте,уточните,может в другой форме надо сформулировать.
Монитор
-----------------------------------
Var m,n:integer;
begin
write('Введите два числа m и n: '); Readln(m,n);
if (m div n) mod 2 = 0 then m:=m*m
else n:=n*3;
Write('m=',m,', n=',n);
end.
program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>