Однажды встретились Системный Блок и Клавиатура.
- Что у тебя с памятью? - напечатала клавиатура.
- Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка?
- Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер.
- Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором.
- Да, но я решила работать на тебя.
- Вот как! - обрадовался Системный Блок.
- Да. Ну ладно, до скорого! Не зависай в нужные моменты!
- Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас!
Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
_______________________________________
<em>Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)</em>
Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
Uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
<span>end.</span>
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.