Загадочные знаки на стенах гробниц- это иероглифы
Надеюсь , что помог тебе )
Var
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
Однажды встретились Системный Блок и Клавиатура.
- Что у тебя с памятью? - напечатала клавиатура.
- Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка?
- Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер.
- Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором.
- Да, но я решила работать на тебя.
- Вот как! - обрадовался Системный Блок.
- Да. Ну ладно, до скорого! Не зависай в нужные моменты!
- Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас!
Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
_______________________________________
<em>Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)</em>
