Написать программу снежинки в pascalabc.net нужна только 1 снежинка определенного размера, из определенного места (без команды random! ) размеры снежинки выбирайте какие хотите

Есть ряд тонкостей, что бы выбрать себе компьютер, как можно дешевле, но с нужными вам возможностями. конкуренция на рынке крайне велика и огромное количество не крупных, но проверенных и известных магазинов могут себе позволить по заказу клиента пере конфигурировать содержимое компьютера. тем самым вы всегда можете деньги урезав некоторые ненужные характеристики машины. а в будущем функционал всегда легко можно расширить, добавив или заменив устаревшие детали - сделать "апгрэйд". заменив такие вещи, как видео карту (для обычной работы мощная карта не нужна), блок питания, поставить более объёмный жёсткий диск. если вы решитесь выбрать компьютер таким способом, то наличные, и в ближайшем будущем вам ничего не угрожает.

// 10. var   n: integer; begin   read(n);   write((n div 100 mod 2 = 0) or (n mod 10 mod 2 = 0) or (n mod 100 div 10 mod 2 = 0)); end. // 11. var   n: integer;   a,b,c: integer; begin   read(n);   a: =n div 100; b: =n mod 100 div 10; c: =n mod 10;   write((a+b=c)or(a+c=b)or(c+b=a)); end. // 12. var   n: integer;   a,b,c,d: integer; begin   read(n);   a: =n div 1000; b: =n mod 1000 div 10 div 10; c: =n mod 100 div 10; d: =n mod 10;   write(a+b+c+d-1=a*b*c*d); end. // 13. var   n,k: integer;   a,b,c: integer; begin   write('n,k= '); read(n,k);   a: =n div 100; b: =n mod 100 div 10; c: =n mod 10;   write((b+c< k)and(a> 5)); end.