Заданы два числа. Является ли каждое из
этих чисел большим 10? Является ли хотя
бы одно из этих чисел большим 10?
Является ли только одно из этих чисел
большим 10?

k:=0;

if x<50 then k:=k+1;

if y<50 then k:=k+1;

if z<50 then k:=k+1;

write('k=',k);

"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒

30*2=60 байт

60*8=480 бит

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.