1. Появление
2. Панорама
3. Фигура
4. Случайные
5. Растворение
6. Часы
7. Рябь
8. Блеск
9. Воронка
10. Отражение
11. Чертово колесо
12. Поворот
13. Окно
14. Орбита
15. Плавный вылет
var a,b,c,d:string[5];
k,l,err:integer;
begin
readln(a);
readln(b);
c:=copy(a,1,2);
d:=copy(b,1,2);
val(c,k,err);
val(d,l,err);
if k=0 then write ('24-hour clock') else
if k>12 then write ('24-hour clock') else
if l>12 then write ('24-hour clock') else
if l=12 then write ('both') else
write ('12-hour clock');
readln
end.
А) если я люблю балет, то занимаюсь музыкой и буду танцором
б) если я занимаюсь музыкой и люблю балет, то буду танцором
Алг
нач
вещ М,К
вывод "Введите вес первого пакета: "
ввод М
вывод "Введите вес второго пакета: "
ввод К
если М>К
то вывод "Первый пакет тяжелее"
иначе вывод "Второй пакет тяжелее"
все
кон<span>
</span>