Устройство ввода и вывода. работает с внешней памятью.

Дискета, текст, чтобы отправилось

Скорее всего это принтер

Var a: char; begin writeln('введите букву'); readln(a); case a of 'q': writeln('w'); 'w': writeln('e'); 'e': writeln('r'); 'r': writeln('t'); 't': writeln('y'); 'y': writeln('u'); 'u': writeln('i'); 'i': writeln('o'); 'o': writeln('p'); 'p': writeln('a'); 'a': writeln('s'); 's': writeln('d'); 'd': writeln('f'); 'f': writeln('g'); 'g': writeln('h'); 'h': writeln('j'); 'j': writeln('k'); 'k': writeln('l'); 'l': writeln('z'); 'z': writeln('x'); 'x': writeln('c'); 'c': writeln('v'); 'v': writeln('b'); 'b': writeln('n'); 'n': writeln('m'); 'm': writeln('q'); end; end.

Input "a="; a input "b="; b input "c="; c if a = b and b = c then     print "числа равны"     end end if if a > b then     if b > c then print a, b, c else print a, c, b else          if b > c then         if a > c then print b, a, c else print b, c, a     else         if a > b then print c, a, b else print c, b, a          end if end if